home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / AMIGA / (A)D / (A)D5.ADF / NSD.S < prev    next >
Text File  |  1988-04-01  |  58KB  |  3,455 lines
  1. ;***********************************************
  2. ;*             PARSEC SOFTWARE                 *
  3. ;*                                             *
  4. ;*     NORTH SEA DEMO                 07.08.88 *
  5. ;*             English  Version                *
  6. ;***********************************************
  7.     jsr    open_screen
  8.     jsr    planes_init
  9.     jsr    startcopper
  10.     move.l    #logo_name,filename
  11.     jsr    printpicture
  12. ;    jsr    protection
  13.     jsr    loadsound
  14.     move.l    #bobfilename1,d7
  15.     jsr    loadbobs
  16.     move.l    d6,bobdata1
  17.  
  18.     ;jsr    startcopper
  19.  
  20.     jsr    opstart
  21.     move.w    #$8400,$dff096    ;blitter
  22.  
  23. ;    bra    animer4
  24. ;********* Start animering 1 ************
  25. animer1:
  26.     move.l    #baggrund1,filename
  27.     jsr    printpicture
  28. ;    jsr    protection
  29.  
  30.     move.b    #0,effektnr
  31.     move.b    #0,slut
  32.     jsr    kanal0
  33.  
  34.     move.b    #1,effektnr
  35.     move.b    #0,slut
  36.     jsr    kanal1
  37.  
  38.     move.l    #17,cycle_1
  39.     move.l    #3,cycle_a1
  40.     move.l    #300,cycle_h1
  41.     move.l    #24,cycle_2
  42.     move.l    #5,cycle_a2
  43.     move.l    #300,cycle_h2
  44.     move.l    #30,cycle_3
  45.     move.l    #1,cycle_a3
  46.     move.l    #400,cycle_h3
  47.  
  48.     move.w    #1000,d0
  49.     jsr    pause
  50.  
  51.     
  52.  
  53.     move.w    #45,bobX2
  54.     move.w    #90,bobY2
  55.     move.b    #45,bob_nr2
  56.     move.b    #46,bob_nr1
  57.     move.b    #46,bob_nr3
  58.     jsr    print_bob
  59.     move.w    #3000,d0
  60.     jsr    pause
  61.  
  62. ;(noise)
  63.     move.b    #2,effektnr
  64.     move.b    #1,slut
  65.     jsr    kanal2
  66.  
  67.     move.b    #46,bob_nr2
  68.     jsr    print_bob
  69.     move.w    #1000,d0
  70.     jsr    pause
  71.  
  72. ;(calling)
  73.     move.b    #3,effektnr
  74.     jsr    kanal2
  75.  
  76.     move.w    #55,bobX2
  77.     move.b    #42,bob_nr2
  78.     jsr    print_bob
  79.     move.w    #3000,d0
  80.     jsr    pause
  81.  
  82. ;(calling)
  83.     move.b    #3,effektnr
  84.     jsr    kanal2
  85.  
  86.     move.b    #46,bob_nr2
  87.     jsr    print_bob
  88.     move.w    #1000,d0
  89.     jsr    pause
  90.  
  91.  
  92.     move.w    #85,bobX2
  93.     move.b    #43,bob_nr2
  94.     jsr    print_bob
  95.     move.w    #1500,d0
  96.     jsr    pause
  97.  
  98. ;(noise)
  99.     move.b    #2,effektnr
  100.     jsr    kanal2
  101.  
  102.     move.w    #2000,d0
  103.     jsr    pause
  104.  
  105. ;(do you)
  106.     move.b    #4,effektnr
  107.     jsr    kanal2
  108.  
  109.     move.b    #46,bob_nr2
  110.     jsr    print_bob
  111.     move.w    #1000,d0
  112.     jsr    pause
  113.  
  114.     move.w    #35,bobX2
  115.     move.b    #44,bob_nr2
  116.     jsr    print_bob
  117.     move.w    #3000,d0
  118.     jsr    pause
  119.  
  120.  
  121.     move.b    #46,bob_nr2
  122.     jsr    print_bob
  123.     move.w    #1000,d0
  124.     jsr    pause
  125.  
  126. ;(noise)
  127.     move.b    #2,effektnr
  128.     jsr    kanal2
  129.  
  130.     move.w    #65,bobX2
  131.     move.b    #41,bob_nr2
  132.     jsr    print_bob
  133.     move.w    #2000,d0
  134.     jsr    pause
  135.  
  136.     clr.l    bob_ON1
  137.     clr.l    bob_ON2
  138.     clr.l    bob_ON3
  139.     bra    animer2
  140.  
  141. ; billed beskyttelse
  142.  
  143. cks1:    dc.l    $7530E8C0    ; logo
  144.     dc.l    $0d597ca2    ; jims_plat
  145.     dc.l    $ae30d958    ; plat2
  146.     dc.l    $cfa22f07    ; terrorist
  147.     dc.l    $e0618dff    ; antiterror2
  148.     dc.l    $43a88653    ; solnedgang
  149.     dc.l    $5ca9c3b2    ; havsn0d
  150. align 4
  151. protection:
  152. move.w    #5,Toptal2
  153. move.l    #cks1,a0
  154. add.l    gembit,a0
  155. move.l    (a0),checksum
  156. add.l    #4,gembit
  157. clr.l    d2
  158. move.l    #Bitplanes,a5
  159. someloop2:
  160. move.l    (a5),a4
  161. move.w    #2000,Toptal
  162. someloop:
  163. add.l    (a4),d2
  164. add.l    #4,a4
  165. sub.w    #1,Toptal
  166. bne    someloop
  167. add.l    #4,a5
  168. sub.w    #1,Toptal2
  169. bne    someloop2
  170.  
  171. cmp.l    checksum,d2
  172. bne    delete
  173. rts
  174.  
  175. Toptal:    dc.w    2000
  176. Toptal2:dc.w    5
  177. align 4
  178. Gembit:    dc.l    0
  179. checksum:    dc.l    0
  180. align 4
  181.  
  182. ;********* Start animering 2 ************
  183. animer2:
  184.     move.l    #baggrund2,filename
  185.     jsr    printpicture
  186. ;    jsr    protection    
  187.  
  188.     move.b    #0,effektnr
  189.     move.w    #0,vol0
  190.     move.b    #1,slut
  191.     jsr    kanal0
  192.  
  193. ;(heli)
  194.     move.b    #1,effektnr
  195.     move.w    #40,vol1
  196.     move.w    #800,freq1
  197.     move.b    #0,slut
  198.     jsr    kanal1
  199.  
  200.     move.l    #20,cycle_1
  201.     move.l    #3,cycle_a1
  202.     move.l    #150,cycle_h1
  203.     move.l    #0,cycle_2
  204.     move.l    #0,cycle_3
  205. ;1
  206.     move.b    #4,bob_nr3
  207.     move.w    #40,bobX3
  208.     move.w    #140,bobY3
  209.     move.b    #0,bob_nr2
  210.     move.w    #160,bobX2
  211.     move.w    #130,bobY2
  212.     move.b    #10,bob_nr1
  213.     move.w    #80,bobX1
  214.     move.w    #132,bobY1
  215.     jsr    print_bob
  216.     move.w    #46,bobX1
  217.     move.w    #117,bobY1
  218.     move.b    #30,bob_nr1
  219.     jsr    print_bob
  220.     move.l    #200,d0
  221.     jsr    pause
  222. ;(skrig2)
  223.     move.b    #8,effektnr
  224.     move.b    #1,slut
  225.     jsr    kanal2
  226.  
  227.     move.l    #1000,d0
  228.     jsr    pause
  229. ;2
  230. ;(maskin)
  231.     move.b    #7,effektnr
  232.     move.b    #1,slut
  233.     jsr    kanal0
  234.  
  235.     move.w    #80,bobX1
  236.     move.w    #132,bobY1
  237.     move.b    #11,bob_nr1
  238.     jsr    print_bob    ;Maskinpistol
  239.     move.l    #100,d0        ;starter
  240.     jsr    pause
  241. ;3
  242.     move.b    #10,bob_nr1
  243.     move.b    #5,bob_nr3
  244.     jsr    print_bob
  245.     move.l    #100,d0
  246.     jsr    pause
  247. ;4
  248.     move.b    #11,bob_nr1
  249.     jsr    print_bob
  250.     move.l    #100,d0
  251.     jsr    pause
  252. ;5
  253.     move.b    #10,bob_nr1
  254.     move.w    #41,bobX3
  255.     move.b    #12,bob_nr3
  256.     jsr    print_bob
  257.     move.l    #100,d0
  258.     jsr    pause
  259. ;6
  260.     move.b    #1,bob_nr2
  261.     move.w    #160,bobX2
  262.     move.w    #131,bobY2
  263.     move.b    #11,bob_nr1
  264.     jsr    print_bob
  265.     move.l    #100,d0
  266.     jsr    pause
  267. ;7
  268.     move.b    #10,bob_nr1
  269.     move.w    #50,bobX3
  270.     move.b    #6,bob_nr3
  271.     jsr    print_bob
  272.     move.l    #100,d0
  273.     jsr    pause    
  274. ;7,5
  275.     move.b    #2,bob_nr2
  276.     move.b    #11,bob_nr1
  277.     jsr    print_bob
  278.     move.l    #100,d0
  279.     jsr    pause
  280. ;8
  281.     move.b    #10,bob_nr1
  282.     move.b    #7,bob_nr3
  283.     jsr    print_bob
  284.     move.w    #46,bobX1
  285.     move.w    #117,bobY1
  286.     move.b    #31,bob_nr1
  287.     jsr    print_bob
  288.     move.w    #100,d0
  289.     jsr    pause
  290. ;9
  291. ;(pistol2)
  292.     move.b    #6,effektnr
  293.     move.b    #1,slut
  294.     jsr    kanal3
  295.     
  296.     move.w    #80,bobX1
  297.     move.w    #132,bobY1
  298.     move.b    #11,bob_nr1
  299.     move.b    #3,bob_nr2
  300.     move.w    #160,bobX2
  301.     move.w    #132,bobY2
  302.     jsr    print_bob
  303.     move.w    #46,bobX1
  304.     move.w    #117,bobY1
  305.     move.b    #32,bob_nr1
  306.     jsr    print_bob
  307.     move.w    #100,d0
  308.     jsr    pause
  309. ;10
  310.     move.w    #51,bobX3
  311.     move.b    #13,bob_nr3
  312.     move.b    #33,bob_nr1
  313.     jsr    print_bob
  314.     move.w    #80,bobX1
  315.     move.w    #132,bobY1
  316.     move.b    #10,bob_nr1
  317.     jsr    print_bob    ;Maskinpistol
  318.     move.w    #200,d0        ;slutter
  319.     jsr    pause
  320. ;11
  321. ;(pistol2)
  322.     move.b    #6,effektnr
  323.     jsr    kanal3
  324.  
  325.     move.w    #60,bobX3
  326.     move.b    #4,bob_nr3
  327.     move.b    #14,bob_nr2
  328.     move.w    #46,bobX1
  329.     move.w    #117,bobY1
  330.     move.b    #34,bob_nr1
  331.     jsr    print_bob
  332.     move.w    #200,d0
  333.     jsr    pause
  334. ;12
  335.     move.b    #5,bob_nr3
  336.     move.b    #15,bob_nr2
  337.     move.b    #35,bob_nr1
  338.     jsr    print_bob
  339.     move.w    #200,d0
  340.     jsr    pause
  341. ;13
  342.     move.w    #61,bobX3
  343.     move.b    #12,bob_nr3
  344.     move.b    #16,bob_nr2
  345.     jsr    print_bob
  346.     move.w    #200,d0
  347.     jsr    pause
  348. ;14
  349.     move.w    #70,bobX3
  350.     move.b    #6,bob_nr3
  351.     move.b    #17,bob_nr2
  352.     jsr    print_bob
  353.     move.w    #200,d0
  354.     jsr    pause
  355. ;15
  356.     move.w    #68,bobX3
  357.     move.w    #141,bobY3
  358.     move.b    #8,bob_nr3
  359.     move.b    #18,bob_nr2
  360.     jsr    print_bob
  361.     move.w    #200,d0
  362.     jsr    pause
  363. ;16
  364. ;(skrig)
  365.     move.b    #5,effektnr
  366.     move.b    #1,slut
  367.     jsr    kanal0
  368.  
  369.     move.b    #6,effektnr
  370.     move.b    #1,slut
  371.     jsr    kanal2
  372.  
  373.     move.b    #9,bob_nr3
  374.     move.w    #160,bobX1
  375.     move.w    #155,bobY1
  376.     move.b    #19,bob_nr1
  377.     move.w    #185,bobX2
  378.     move.b    #20,bob_nr2
  379.     jsr    print_bob    ;1.Pumpgun
  380.     move.w    #100,d0
  381.     jsr    pause
  382. ;17
  383.     move.b    #8,bob_nr3
  384.     jsr    print_bob
  385.     move.w    #100,d0
  386.     jsr    pause
  387. ;17,1
  388.     move.w    #190,bobX2
  389.     move.b    #21,bob_nr2
  390.     jsr    print_bob
  391.     move.w    #150,d0
  392.     jsr    pause
  393. ;17,2
  394.     move.w    #195,bobX2
  395.     move.b    #23,bob_nr2
  396.     jsr    print_bob
  397.     move.w    #150,d0
  398.     jsr    pause
  399. ;17,3
  400.     move.w    #200,bobX2
  401.     move.b    #22,bob_nr2
  402.     jsr    print_bob
  403.     move.w    #150,d0
  404.     jsr    pause
  405. ;17,4
  406.     move.w    #205,bobX2
  407.     move.b    #20,bob_nr2
  408.     jsr    print_bob
  409.     move.w    #150,d0
  410.     jsr    pause
  411. ;17,5
  412.     move.w    #210,bobX2
  413.     move.b    #21,bob_nr2
  414.     jsr    print_bob
  415.     move.w    #150,d0
  416.     jsr    pause
  417. ;17,6
  418.     move.w    #215,bobX2
  419.     move.b    #23,bob_nr2
  420.     jsr    print_bob
  421.     move.w    #150,d0
  422.     jsr    pause
  423. ;17,7
  424.     move.w    #220,bobX2
  425.     move.b    #22,bob_nr2
  426.     jsr    print_bob
  427.     move.w    #150,d0
  428.     jsr    pause
  429. ;18
  430. ;(pistol2)
  431.     move.b    #6,effektnr
  432.     jsr    kanal2
  433.  
  434.     move.b    #24,bob_nr2
  435.     move.b    #9,bob_nr3
  436.     jsr    print_bob    ;2.Pumpgun
  437.     move.w    #100,d0
  438.     jsr    pause
  439. ;19
  440.     move.b    #8,bob_nr3
  441.     jsr    print_bob
  442.     move.w    #100,d0
  443.     jsr    pause
  444. ;19,5
  445.     move.w    #133,bobY2
  446.     move.b    #25,bob_nr2
  447.     jsr    print_bob
  448.     move.w    #200,d0
  449.     jsr    pause
  450. ;19,6
  451.     move.w    #136,bobY2
  452.     move.b    #26,bob_nr2
  453.     jsr    print_bob
  454.     move.w    #200,d0
  455.     jsr    pause
  456. ;19,7
  457.     move.w    #141,bobY2
  458.     move.b    #27,bob_nr2
  459.     jsr    print_bob
  460.     move.w    #200,d0
  461.     jsr    pause
  462. ;19,8
  463.     move.w    #147,bobY2
  464.     move.b    #28,bob_nr2
  465.     jsr    print_bob
  466.     move.w    #200,d0
  467.     jsr    pause
  468. ;19,9
  469.     move.w    #151,bobY2
  470.     move.b    #29,bob_nr2
  471.     jsr    print_bob
  472.     move.w    #200,d0
  473.     jsr    pause
  474. ;20
  475.     move.w    #140,bobY3
  476.     move.w    #70,bobX3
  477.     move.b    #5,bob_nr3
  478.     jsr    print_bob
  479.     move.w    #200,d0
  480.     jsr    pause
  481. ;30
  482.     move.w    #71,bobX3
  483.     move.b    #12,bob_nr3
  484.     jsr    print_bob
  485.     move.w    #200,d0
  486.     jsr    pause
  487. ;31
  488.     move.w    #80,bobX3
  489.     move.b    #6,bob_nr3
  490.     jsr    print_bob
  491.     move.w    #200,d0
  492.     jsr    pause
  493. ;32
  494.     move.b    #7,bob_nr3
  495.     jsr    print_bob
  496.     move.w    #200,d0
  497.     jsr    pause
  498. ;33
  499.     move.w    #81,bobX3
  500.     move.b    #13,bob_nr3
  501.     jsr    print_bob
  502.     move.w    #200,d0
  503.     jsr    pause
  504. ;34
  505.     move.w    #90,bobX3
  506.     move.b    #4,bob_nr3
  507.     jsr    print_bob
  508.     move.w    #200,d0
  509.     jsr    pause
  510. ;34,1
  511.     move.b    #5,bob_nr3
  512.     jsr    print_bob
  513.     move.w    #200,d0
  514.     jsr    pause
  515. ;34,2
  516.     move.w    #91,bobX3
  517.     move.b    #12,bob_nr3
  518.     jsr    print_bob
  519.     move.w    #200,d0
  520.     jsr    pause
  521. ;34,3
  522.     move.w    #100,bobX3
  523.     move.b    #6,bob_nr3
  524.     jsr    print_bob
  525.     move.w    #200,d0
  526.     jsr    pause
  527. ;34,4
  528.     move.w    #98,bobX3
  529.     move.w    #141,bobY3
  530.     move.b    #8,bob_nr3
  531.     jsr    print_bob
  532.     move.w    #400,d0
  533.     jsr    pause
  534. ;35,5
  535. ;(pistol2)
  536.     move.b    #6,effektnr
  537.     jsr    kanal2
  538.     move.b    #9,bob_nr3
  539.     jsr    print_bob    ;3.Pumpgun
  540.     move.w    #100,d0
  541.     jsr    pause
  542. ;35
  543.     move.b    #8,bob_nr3
  544.     move.w    #266,bobX1
  545.     move.w    #140,bobY1
  546.     move.b    #36,bob_nr1
  547.     jsr    print_bob
  548.     move.w    #200,d0
  549.     jsr    pause
  550. ;36
  551.     move.b    #37,bob_nr1
  552.     jsr    print_bob
  553.     move.w    #300,d0
  554.     jsr    pause
  555. ;37
  556.     move.w    #265,bobX1
  557.     move.b    #38,bob_nr1
  558.     jsr    print_bob
  559.     move.w    #300,d0
  560.     jsr    pause
  561.  
  562. ;38
  563.     move.w    #248,bobX1
  564.     move.b    #39,bob_nr1
  565.     jsr    print_bob
  566.     move.w    #300,d0
  567.     jsr    pause
  568. ;39
  569.     move.b    #40,bob_nr1
  570.     jsr    print_bob
  571.  
  572.     move.b    #1,effektnr
  573.     move.b    #1,slut
  574.     move.w    #0,vol1
  575.     jsr    kanal1
  576.  
  577.     move.w    #1000,d0
  578.     jsr    pause
  579.  
  580.     clr.l    bob_ON1
  581.     clr.l    bob_ON2
  582.     clr.l    bob_ON3
  583.  
  584. ;****** Start animering 3 ******
  585. animer3:
  586.     move.l    #baggrund3,filename
  587.     jsr    printpicture
  588. ;    jsr    protection
  589.     move.l    #0,cycle_1
  590.  
  591.     move.w    #700,d0
  592.     jsr    pause
  593. ;0,1
  594. ;(maskin)
  595.     move.b    #7,effektnr
  596.     move.b    #1,slut
  597.     move.w    #360,freq7
  598.     jsr    kanal0
  599.  
  600.     move.w    #120,bobX2
  601.     move.w    #65,bobY2
  602.     move.b    #55,bob_nr2
  603.     move.b    #46,bob_nr1
  604.     move.b    #46,bob_nr3
  605.     jsr    print_bob
  606.     move.w    #100,d0
  607.     jsr    pause
  608. ;0,2
  609.     move.b    #46,bob_nr2
  610.     jsr    print_bob
  611.     move.w    #100,d0
  612.     jsr    pause
  613. ;0,3
  614.     move.b    #56,bob_nr2
  615.     jsr    print_bob
  616.     move.w    #100,d0
  617.     jsr    pause
  618. ;0,4
  619.     move.b    #46,bob_nr2
  620.     jsr    print_bob
  621.     move.w    #100,d0
  622.     jsr    pause
  623. ;1
  624.     move.w    #110,bobX1
  625.     move.w    #36,bobY1
  626.     move.b    #47,bob_nr1
  627.     jsr    print_bob
  628.     move.w    #130,bobX2
  629.     move.b    #55,bob_nr2
  630.     move.w    #75,bobY1
  631.     move.b    #48,bob_nr1
  632.     jsr    print_bob    ;1.bob
  633.     move.w    #100,d0
  634.     jsr    pause
  635. ;1,1
  636.     move.b    #46,bob_nr2
  637.     jsr    print_bob
  638.     move.w    #100,d0
  639.     jsr    pause
  640. ;1,2
  641.     move.b    #57,bob_nr2
  642.     jsr    print_bob
  643.     move.w    #100,d0
  644.     jsr    pause
  645. ;1,3
  646.     move.b    #46,bob_nr2
  647.     jsr    print_bob
  648.     move.w    #100,d0
  649.     jsr    pause
  650. ;2
  651.     move.w    #140,bobX2
  652.     move.b    #56,bob_nr2
  653.     move.w    #36,bobY1
  654.     move.b    #49,bob_nr1
  655.     jsr    print_bob
  656.     move.w    #75,bobY1
  657.     move.b    #50,bob_nr1
  658.     jsr    print_bob    ;2.bob
  659.     move.w    #100,d0
  660.     jsr    pause
  661. ;2,1
  662.     move.b    #46,bob_nr2
  663.     jsr    print_bob
  664.     move.w    #100,d0
  665.     jsr    pause
  666. ;2,2
  667.     move.b    #57,bob_nr2
  668.     jsr    print_bob
  669.     move.w    #100,d0
  670.     jsr    pause
  671. ;2,3
  672.     move.b    #46,bob_nr2
  673.     jsr    print_bob
  674.     move.w    #100,d0
  675.     jsr    pause
  676. ;3
  677.     move.w    #36,bobY1
  678.     move.b    #47,bob_nr1
  679.     jsr    print_bob
  680.     move.w    #75,bobY1
  681.     move.b    #48,bob_nr1
  682.     jsr    print_bob    ;1.bob
  683.     move.w    #300,d0
  684.     jsr    pause
  685. ;4
  686.     move.w    #36,bobY1
  687.     move.b    #51,bob_nr1
  688.     jsr    print_bob
  689.     move.w    #75,bobY1
  690.     move.b    #52,bob_nr1
  691.     jsr    print_bob    ;3.bob
  692.     move.w    #300,d0
  693.     jsr    pause
  694. ;5
  695. ;(maskin)
  696.     move.b    #7,effektnr
  697.     move.b    #1,slut
  698.     jsr    kanal2
  699.  
  700.     move.w    #36,bobY1
  701.     move.b    #53,bob_nr1
  702.     jsr    print_bob
  703.     move.w    #75,bobY1
  704.     move.b    #54,bob_nr1
  705.     move.w    #110,bobX2
  706.     move.b    #55,bob_nr2
  707.     jsr    print_bob    ;4.bob
  708.     move.w    #100,d0
  709.     jsr    pause
  710. ;5,1
  711.     move.b    #46,bob_nr2
  712.     jsr    print_bob
  713.     move.w    #100,d0
  714.     jsr    pause
  715. ;5,2
  716.     move.b    #56,bob_nr2
  717.     jsr    print_bob
  718.     move.w    #100,d0
  719.     jsr    pause
  720. ;5,3
  721.     move.b    #46,bob_nr2
  722.     jsr    print_bob
  723.     move.w    #100,d0
  724.     jsr    pause
  725. ;6
  726.     move.w    #36,bobY1
  727.     move.b    #51,bob_nr1
  728.     jsr    print_bob
  729.     move.w    #75,bobY1
  730.     move.b    #52,bob_nr1
  731.     move.w    #120,bobX2
  732.     move.b    #55,bob_nr2
  733.     jsr    print_bob    ;3.bob
  734.     move.w    #100,d0
  735.     jsr    pause
  736. ;6,1
  737.     move.b    #46,bob_nr2
  738.     jsr    print_bob
  739.     move.w    #100,d0
  740.     jsr    pause
  741. ;6,2
  742.     move.b    #57,bob_nr2
  743.     jsr    print_bob
  744.     move.w    #100,d0
  745.     jsr    pause
  746. ;6,3
  747.     move.b    #46,bob_nr2
  748.     jsr    print_bob
  749.     move.w    #100,d0
  750.     jsr    pause
  751. ;7
  752.     move.w    #36,bobY1
  753.     move.b    #47,bob_nr1
  754.     jsr    print_bob
  755.     move.w    #75,bobY1
  756.     move.b    #48,bob_nr1
  757.     move.w    #130,bobX2
  758.     move.b    #56,bob_nr2
  759.     jsr    print_bob    ;1.bob
  760.     move.w    #100,d0
  761.     jsr    pause
  762. ;7,1
  763.     move.b    #46,bob_nr2
  764.     jsr    print_bob
  765.     move.w    #100,d0
  766.     jsr    pause
  767. ;7,2
  768.     move.b    #57,bob_nr2
  769.     jsr    print_bob
  770.     move.w    #100,d0
  771.     jsr    pause
  772. ;7,3
  773.     move.w    #36,bobY1
  774.     move.b    #51,bob_nr1
  775.     jsr    print_bob
  776.     move.w    #75,bobY1
  777.     move.b    #52,bob_nr1
  778.     move.w    #120,bobX2
  779.     jsr    print_bob    ;3.bob
  780.     move.w    #300,d0
  781.     jsr    pause
  782. ;10
  783.     jsr    sh_pic
  784.     move.w    #3500,d0
  785.     jsr    pause
  786. ;11
  787.     move.b    #10,effektnr
  788.     move.b    #1,slut
  789.     move.w    #500,freq10
  790.     move.w    #64,vol10
  791.     sub.l    #1500,sound10
  792.     jsr    kanal2
  793.     move.w    #600,freq10
  794.     jsr    kanal3
  795.     add.l    #1500,sound10
  796.  
  797.     move.b    #0,beam_ON
  798.     move.w    #7,bobX1
  799.     move.w    #130,bobY1
  800.     move.b    #58,bob_nr1
  801.     jsr    print_bob
  802.     move.w    #71,bobX1
  803.     move.b    #59,bob_nr1
  804.     jsr    print_bob
  805.     move.w    #135,bobX1
  806.     move.w    #141,bobY1
  807.     move.b    #60,bob_nr1
  808.     jsr    print_bob
  809.     move.w    #199,bobX1
  810.     move.b    #61,bob_nr1
  811.     jsr    print_bob
  812.     move.w    #263,bobX1
  813.     move.b    #62,bob_nr1
  814.     jsr    print_bob
  815. ;12
  816.     move.w    #15,bobX1
  817.     move.w    #162,bobY1
  818.     move.b    #63,bob_nr1
  819.     jsr    print_bob
  820.     move.w    #79,bobX1
  821.     move.b    #64,bob_nr1
  822.     jsr    print_bob
  823.     move.w    #143,bobX1
  824.     move.b    #65,bob_nr1
  825.     jsr    print_bob
  826.     move.w    #207,bobX1
  827.     move.b    #66,bob_nr1
  828.     jsr    print_bob
  829.     move.w    #271,bobX1
  830.     move.b    #67,bob_nr1
  831.     jsr    print_bob
  832.     move.w    #8000,d0
  833.     jsr    pause
  834.     move.b    #1,beam_ON
  835.  
  836.     move.b    #0,effektnr
  837.     move.w    #0,vol10
  838.     jsr    kanal2
  839.  
  840.     clr.l    bob_ON1
  841.     clr.l    bob_ON2
  842.     clr.l    bob_ON3
  843. ;*********** Computer ************
  844.  
  845.     jsr    clear_screen
  846.     move.w    #$f0,copcol+4
  847.     jsr    skriv
  848.  
  849. ;******* Start Animering 4 *******
  850. animer4:
  851.     move.l    #baggrund4,filename
  852.     jsr    printpicture
  853. ;    jsr    protection
  854.     
  855.     move.b    #1,stopcheck
  856.     move.b    #1,effektnr
  857.     move.b    #1,slut
  858.     move.w    #0,vol1
  859.     jsr    kanal1
  860.  
  861. ;1
  862. ;(alarm1)
  863.     move.b    #11,effektnr
  864.     move.b    #1,slut
  865.     jsr    kanal2
  866.  
  867.     move.b    #46,bob_nr1
  868.     move.w    #109,bobX2
  869.     move.w    #117,bobY2
  870.     move.b    #72,bob_nr2
  871.     move.w    #77,bobX3
  872.     move.w    #118,bobY3
  873.     move.b    #70,bob_nr3
  874.     jsr    print_bob
  875.     move.w    #150,d0
  876.     jsr    pause
  877. ;2
  878.     move.w    #120,bobX2
  879.     move.w    #116,bobY2
  880.     move.b    #73,bob_nr2
  881.     add.w    #4,bobX3
  882.     move.b    #71,bob_nr3
  883.     jsr    print_bob
  884.     move.w    #150,d0
  885.     jsr    pause
  886. ;3
  887.     move.w    #124,bobX2
  888.     move.b    #68,bob_nr2
  889.     move.b    #72,bob_nr3
  890.     jsr    print_bob
  891.     move.w    #150,d0
  892.     jsr    pause
  893. ;4
  894.     move.b    #69,bob_nr2
  895.     add.w    #11,bobX3
  896.     sub.w    #1,bobY3
  897.     move.b    #73,bob_nr3
  898.     jsr    print_bob
  899.     move.w    #150,d0
  900.     jsr    pause
  901. ;5
  902.     move.w    #135,bobX2
  903.     move.w    #115,bobY2
  904.     move.b    #70,bob_nr2
  905.     add.w    #4,bobX3
  906.     move.b    #68,bob_nr3
  907.     jsr    print_bob
  908.     move.w    #150,d0
  909.     jsr    pause
  910. ;6
  911.     move.w    #139,bobX2
  912.     move.b    #71,bob_nr2
  913.     move.b    #69,bob_nr3
  914.     jsr    print_bob
  915.     move.w    #150,d0
  916.     jsr    pause
  917. ;7
  918.     move.b    #72,bob_nr2
  919.     add.w    #11,bobX3
  920.     sub.w    #1,bobY3
  921.     move.b    #70,bob_nr3
  922.     jsr    print_bob
  923.     move.w    #150,d0
  924.     jsr    pause
  925. ;8
  926.     move.w    #150,bobX2
  927.     move.w    #114,bobY2
  928.     move.b    #73,bob_nr2
  929.     add.w    #4,bobX3
  930.     move.b    #71,bob_nr3
  931.     jsr    print_bob
  932.     move.w    #150,d0
  933.     jsr    pause
  934. ;9
  935.     move.w    #154,bobX2
  936.     move.b    #68,bob_nr2
  937.     move.b    #72,bob_nr3
  938.     jsr    print_bob
  939.     move.w    #150,d0
  940.     jsr    pause
  941. ;10
  942.     move.b    #69,bob_nr2
  943.     add.w    #11,bobX3
  944.     sub.w    #1,bobY3
  945.     move.b    #73,bob_nr3
  946.     jsr    print_bob
  947.     move.w    #150,d0
  948.     jsr    pause
  949. ;11
  950.     move.w    #165,bobX2
  951.     move.w    #113,bobY2
  952.     move.b    #70,bob_nr2
  953.     add.w    #4,bobX3
  954.     move.b    #68,bob_nr3
  955.     jsr    print_bob
  956.     move.w    #150,d0
  957.     jsr    pause
  958. ;12
  959.     move.w    #169,bobX2
  960.     move.b    #71,bob_nr2
  961.     move.b    #69,bob_nr3
  962.     jsr    print_bob
  963.     move.w    #150,d0
  964.     jsr    pause
  965. ;13
  966.     move.b    #72,bob_nr2
  967.     add.w    #11,bobX3
  968.     sub.w    #1,bobY3
  969.     move.b    #70,bob_nr3
  970.     jsr    print_bob
  971.     move.w    #150,d0
  972.     jsr    pause
  973. ;14
  974.     move.w    #180,bobX2
  975.     move.w    #112,bobY2
  976.     move.b    #73,bob_nr2
  977.     add.w    #4,bobX3
  978.     move.b    #71,bob_nr3
  979.     jsr    print_bob
  980.     move.w    #150,d0
  981.     jsr    pause
  982. ;15
  983. ;(alarm1)
  984.     move.b    #11,effektnr
  985.     jsr    kanal2
  986.  
  987.     move.w    #184,bobX2
  988.     move.b    #68,bob_nr2
  989.     move.b    #72,bob_nr3
  990.     jsr    print_bob
  991.     move.w    #150,d0
  992.     jsr    pause
  993. ;16
  994.     move.b    #69,bob_nr2
  995.     add.w    #11,bobX3
  996.     sub.w    #1,bobY3
  997.     move.b    #73,bob_nr3
  998.     jsr    print_bob
  999.     move.w    #150,d0
  1000.     jsr    pause
  1001. ;17
  1002.     move.w    #195,bobX2
  1003.     move.w    #111,bobY2
  1004.     move.b    #70,bob_nr2
  1005.     add.w    #4,bobX3
  1006.     move.b    #68,bob_nr3
  1007.     jsr    print_bob
  1008.     move.w    #150,d0
  1009.     jsr    pause
  1010. ;18
  1011.     move.w    #199,bobX2
  1012.     move.b    #71,bob_nr2
  1013.     move.b    #69,bob_nr3
  1014.     jsr    print_bob
  1015.     move.w    #150,d0
  1016.     jsr    pause
  1017. ;19
  1018.     move.b    #72,bob_nr2
  1019.     add.w    #11,bobX3
  1020.     sub.w    #1,bobY3
  1021.     move.b    #70,bob_nr3
  1022.     jsr    print_bob
  1023.     move.w    #150,d0
  1024.     jsr    pause
  1025. ;20
  1026.     move.w    #210,bobX2
  1027.     move.w    #110,bobY2
  1028.     move.b    #73,bob_nr2
  1029.     add.w    #4,bobX3
  1030.     move.b    #71,bob_nr3
  1031.     jsr    print_bob
  1032.     move.w    #150,d0
  1033.     jsr    pause
  1034. ;21
  1035.     move.w    #214,bobX2
  1036.     move.b    #68,bob_nr2
  1037.     move.b    #72,bob_nr3
  1038.     jsr    print_bob
  1039.     move.w    #150,d0
  1040.     jsr    pause
  1041. ;22
  1042.  
  1043.     move.b    #69,bob_nr2
  1044.     add.w    #11,bobX3
  1045.     sub.w    #1,bobY3
  1046.     move.b    #73,bob_nr3
  1047.     jsr    print_bob
  1048.     move.w    #150,d0
  1049.     jsr    pause
  1050. ;23
  1051.     move.w    #225,bobX2
  1052.     move.w    #109,bobY2
  1053.     move.b    #70,bob_nr2
  1054.     add.w    #4,bobX3
  1055.     move.b    #68,bob_nr3
  1056.     jsr    print_bob
  1057.     move.w    #150,d0
  1058.     jsr    pause
  1059. ;24
  1060.     move.w    #229,bobX2
  1061.     move.b    #71,bob_nr2
  1062.     move.b    #69,bob_nr3
  1063.     jsr    print_bob
  1064.     move.w    #150,d0
  1065.     jsr    pause
  1066. ;25
  1067.     move.b    #72,bob_nr2
  1068.     add.w    #11,bobX3
  1069.     sub.w    #1,bobY3
  1070.     move.b    #70,bob_nr3
  1071.     jsr    print_bob
  1072.     move.w    #150,d0
  1073.     jsr    pause
  1074. ;26
  1075.     move.w    #240,bobX2
  1076.     move.w    #108,bobY2
  1077.     move.b    #73,bob_nr2
  1078.     add.w    #4,bobX3
  1079.     move.b    #71,bob_nr3
  1080.     jsr    print_bob
  1081.     move.w    #150,d0
  1082.     jsr    pause
  1083. ;27                ;ind
  1084.     move.w    #244,bobX2
  1085.     move.b    #74,bob_nr2
  1086.     move.b    #72,bob_nr3
  1087.     jsr    print_bob
  1088.     move.w    #200,d0
  1089.     jsr    pause
  1090. ;28
  1091.     move.w    #245,bobX2
  1092.     move.b    #75,bob_nr2
  1093.     add.w    #11,bobX3
  1094.     sub.w    #1,bobY3
  1095.     move.b    #73,bob_nr3
  1096.     jsr    print_bob
  1097.     move.w    #200,d0
  1098.     jsr    pause
  1099. ;29
  1100.     move.b    #76,bob_nr2
  1101.     add.w    #4,bobX3
  1102.     move.b    #68,bob_nr3
  1103.     jsr    print_bob
  1104.     move.w    #200,d0
  1105.     jsr    pause
  1106. ;30
  1107.     move.w    #248,bobX2
  1108.     move.w    #104,bobY2
  1109.     move.b    #77,bob_nr2
  1110.     move.b    #69,bob_nr3
  1111.     jsr    print_bob
  1112.     move.w    #200,d0
  1113.     jsr    pause
  1114. ;31
  1115.     move.w    #249,bobX2
  1116.     move.w    #99,bobY2
  1117.     move.b    #78,bob_nr2
  1118.     add.w    #11,bobX3
  1119.     sub.w    #1,bobY3
  1120.     move.b    #70,bob_nr3
  1121.     jsr    print_bob
  1122.     move.w    #200,d0
  1123.     jsr    pause
  1124. ;32
  1125. ;(alarm1)
  1126.     move.b    #11,effektnr
  1127.     jsr    kanal2
  1128.  
  1129.     move.w    #252,bobX2
  1130.     move.w    #96,bobY2
  1131.     move.b    #79,bob_nr2
  1132.     add.w    #4,bobX3
  1133.     move.b    #71,bob_nr
  1134.     jsr    print_bob
  1135.     move.w    #200,d0
  1136.     jsr    pause
  1137. ;33
  1138.     move.w    #255,bobX2
  1139.     move.w    #90,bobY2
  1140.     move.b    #80,bob_nr2
  1141.     move.b    #72,bob_nr3
  1142.     jsr    print_bob
  1143.     move.w    #200,d0
  1144.     jsr    pause
  1145. ;34
  1146.     move.w    #257,bobX2
  1147.     move.b    #81,bob_nr2
  1148.     add.w    #11,bobX3
  1149.     sub.w    #1,bobY3
  1150.     move.b    #73,bob_nr3
  1151.     jsr    print_bob
  1152.     move.w    #200,d0
  1153.     jsr    pause
  1154. ;35
  1155.     move.w    #260,bobX2
  1156.     move.w    #100,bobY2
  1157.     move.b    #82,bob_nr2
  1158.     add.w    #4,bobX3
  1159.     move.b    #74,bob_nr3
  1160.     jsr    print_bob
  1161.     move.w    #200,d0
  1162.     jsr    pause
  1163. ;36
  1164.     move.b    #46,bob_nr2
  1165.     add.w    #1,bobX3
  1166.     move.b    #75,bob_nr3
  1167.     jsr    print_bob
  1168.     move.w    #100,d0
  1169.     jsr    pause
  1170. ;37
  1171.     move.b    #76,bob_nr3
  1172.     jsr    print_bob
  1173.     move.w    #200,d0
  1174.     jsr    pause
  1175. ;38
  1176.     add.w    #3,bobX3
  1177.     sub.w    #4,bobY3
  1178.     move.b    #77,bob_nr3
  1179.     jsr    print_bob
  1180.     move.w    #200,d0
  1181.     jsr    pause
  1182. ;39
  1183.     add.w    #1,bobX3
  1184.     sub.w    #5,bobY3
  1185.     move.b    #78,bob_nr3
  1186.     jsr    print_bob
  1187.     move.w    #200,d0
  1188.     jsr    pause
  1189. ;40
  1190.     add.w    #3,bobX3
  1191.     sub.w    #3,bobY3
  1192.     move.b    #79,bob_nr3
  1193.     jsr    print_bob
  1194.     move.w    #200,d0
  1195.     jsr    pause
  1196. ;41
  1197.     add.w    #3,bobX3
  1198.     sub.w    #6,bobY3
  1199.     move.b    #80,bob_nr3
  1200.     jsr    print_bob
  1201.     move.w    #200,d0
  1202.     jsr    pause
  1203. ;42
  1204.     add.w    #2,bobX3
  1205.     move.b    #81,bob_nr3
  1206.     jsr    print_bob
  1207.     move.w    #200,d0
  1208.     jsr    pause
  1209. ;43
  1210.     add.w    #3,bobX3
  1211.     add.w    #10,bobY3
  1212.     move.b    #82,bob_nr3
  1213.     jsr    print_bob
  1214.     move.w    #200,d0
  1215.     jsr    pause
  1216. ;44
  1217.     move.b    #46,bob_nr3
  1218.     jsr    print_bob
  1219. ;45
  1220. ;(alarm1)
  1221.     move.b    #11,effektnr
  1222.     jsr    kanal2
  1223.  
  1224.     move.w    #3000,d0
  1225.     jsr    pause
  1226. ;(noise)
  1227.     move.b    #0,effektnr
  1228.     move.b    #0,slut
  1229.     move.w    #21,vol0
  1230.     move.w    #550,freq0
  1231.     jsr    kanal3
  1232. ;(heli)
  1233.     move.b    #1,effektnr
  1234.     move.w    #800,freq1
  1235.     move.w    #0,vol1
  1236.     jsr    kanal2
  1237.  
  1238.     move.l    #20,cycle_1
  1239.     move.l    #3,cycle_a1
  1240.     move.l    #500,cycle_h1
  1241.  
  1242.     move.w    #63,animtael
  1243. anilo1:    sub.l    #5,cycle_h1
  1244.     sub.w    #3,freq0
  1245.     move.w    freq0,$dff0d6
  1246.     sub.w    #2,freq1
  1247.     move.w    freq1,$dff0c6
  1248.     move.w    vol1,d0
  1249.     add.b    #1,d0
  1250.     move.b    d0,$dff0c8
  1251.     move.w    d0,vol1
  1252.     move.w    #285,d0
  1253.     jsr    pause
  1254.     sub.w    #1,animtael
  1255.     bne    anilo1
  1256.  
  1257.     move.b    #64,d0
  1258.     move.b    d0,$dff0c8
  1259.     move.w    #6000,d0
  1260.     jsr    pause    
  1261.  
  1262.     clr.l    bob_ON1
  1263.     clr.l    bob_ON2
  1264.     clr.l    bob_ON3
  1265.     jsr    clear_screen
  1266.     move.b    #0,stopcheck
  1267.  
  1268.     move.b    #0,effektnr
  1269.     move.b    #1,slut
  1270.     move.w    #2,vol0
  1271.     jsr    kanal3
  1272.     move.b    #1,effektnr
  1273.     move.w    #0,vol1
  1274.     jsr    kanal2
  1275.     jsr    kanal1
  1276.     jsr    kanal0
  1277.     jsr    efree
  1278. ;******* Start animering 5 ********
  1279. animer5:
  1280.     move.l    #baggrund5,filename
  1281.     jsr    printpicture
  1282. ;    jsr    protection
  1283.     jsr    opstart
  1284.     move.b    #1,stopcheck
  1285.     move.w    #$b400,beamsted
  1286.  
  1287.     move.l    #8,cycle_1
  1288.     move.l    #3,cycle_a1
  1289.     move.l    #400,cycle_h1
  1290.     move.l    #12,cycle_2
  1291.     move.l    #3,cycle_a2
  1292.     move.l    #200,cycle_h2
  1293.     move.l    #16,cycle_3
  1294.     move.l    #3,cycle_a3
  1295.     move.l    #200,cycle_h3
  1296. ;1
  1297.  
  1298. ;(heli)
  1299.     move.b    #1,effektnr
  1300.     move.b    #0,slut
  1301.     move.w    #30,vol1
  1302.     move.w    #550,freq1
  1303.     jsr    kanal1
  1304.  
  1305.     move.w    #0,bobX2
  1306.     move.w    #80,bobY2
  1307.     move.b    #83,bob_nr2
  1308.     move.w    #140,bobX3
  1309.     move.w    #76,bobY3
  1310.     move.b    #83,bob_nr3
  1311.     move.b    #46,bob_nr1
  1312.     jsr    print_bob
  1313.     move.w    #200,d0
  1314.     jsr    pause
  1315. ;2
  1316.  
  1317.     move.w    #50,animtael
  1318. anilo2:    add.w    #2,bobX2
  1319.     add.w    #1,bobX3
  1320.     jsr    print_bob
  1321.     move.w    #200,d0
  1322.     jsr    pause
  1323.     sub.w    #1,animtael
  1324.     bne    anilo2
  1325. ;3
  1326.     clr.l    bob_ON1
  1327.     clr.l    bob_ON2
  1328.     clr.l    bob_ON3
  1329.     move.w    #185,bobX1
  1330.     move.w    #75,bobY1
  1331.     move.b    #55,bob_nr1
  1332.     jsr    print_bob
  1333.     move.w    #200,d0
  1334.     jsr    pause
  1335. ;4
  1336.     move.w    #0,bobY2
  1337.     move.b    #46,bob_nr2
  1338.     move.w    #0,bobY3
  1339.     move.b    #46,bob_nr3
  1340.     jsr    print_bob
  1341.  
  1342.     move.w    #52,animtael
  1343.     move.l    #bang,bangcount
  1344.     
  1345. ;(bom1)
  1346.     move.b    #13,effektnr
  1347.     move.b    #1,slut
  1348.     jsr    kanal3
  1349.  
  1350. ;(bom1)
  1351.     move.w    #400,freq13
  1352.     jsr    kanal2
  1353.  
  1354.     move.b    #0,beam_ON
  1355. bang1:    move.l    bangcount,a0
  1356.     move.w    (a0),bobX1
  1357.     add.l    #2,a0
  1358.     move.w    (a0),bobY1
  1359.     add.l    #2,a0
  1360.     move.w    (a0),d0
  1361.     add.l    #2,a0
  1362.     move.b    d0,bob_nr1
  1363.     move.l    a0,bangcount
  1364.     jsr    print_bob
  1365.     sub.w    #1,animtael
  1366.     bne    bang1
  1367.  
  1368.     move.b    #1,beam_ON
  1369.  
  1370. ;(bom1)
  1371.     move.b    #13,effektnr
  1372.     move.w    #300,freq13
  1373.     jsr    kanal3
  1374.  
  1375.     move.w    #1000,d0
  1376.     jsr    pause
  1377.  
  1378.     clr.l    bob_ON1
  1379.     clr.l    bob_ON2
  1380.     clr.l    bob_ON3
  1381.  
  1382.     move.b    #0,stopcheck
  1383.     jsr    clear_screen
  1384.  
  1385.     move.b    #1,slut
  1386.     move.b    #1,effektnr
  1387.     move.w    #0,vol1
  1388.     jsr    kanal0
  1389.     jsr    kanal1
  1390.     jsr    eopen_dos
  1391.     move.l    #file12,efilename
  1392.     move.l    #21174,echunk_size
  1393.     jsr    eopen_file
  1394.     move.l    epic_buf,sound12
  1395. ;****** Start animering 6 *******
  1396. animer6:
  1397.     move.l    #baggrund6,filename
  1398.     jsr    printpicture
  1399. ;    jsr    protection    
  1400.  
  1401. ;(storm1)
  1402.     move.b    #12,effektnr
  1403.     move.b    #0,slut
  1404.     jsr    kanal0
  1405.  
  1406.     move.l    #16,cycle_1
  1407.     move.l    #7,cycle_a1
  1408.     move.l    #600,cycle_h1
  1409.     move.l    #24,cycle_2
  1410.     move.l    #7,cycle_a2
  1411.     move.l    #600,cycle_h2
  1412.     move.l    #8,cycle_3
  1413.     move.l    #7,cycle_a3
  1414.     move.l    #600,cycle_h3
  1415.  
  1416.     move.w    #5,animtael
  1417.  
  1418. havlo1:
  1419. ;(storm1)
  1420.     move.b    #12,effektnr
  1421.     move.w    #400,freq12
  1422.     jsr    kanal2
  1423.  
  1424.     move.w    #149,bobX2
  1425.     move.w    #81,bobY2
  1426.     move.b    #91,bob_nr2
  1427.     move.b    #46,bob_nr1
  1428.     move.b    #46,bob_nr3
  1429.     jsr    print_bob
  1430.     move.w    #600,d0
  1431.     jsr    pause
  1432.  
  1433.     move.w    #151,bobX2
  1434.     move.w    #53,bobY2
  1435.     move.b    #91,bob_nr2
  1436.     jsr    print_bob
  1437.     move.w    #600,d0
  1438.     jsr    pause
  1439.  
  1440.     move.w    #145,bobX2
  1441.     move.w    #49,bobY2
  1442.     move.b    #90,bob_nr2
  1443.     jsr    print_bob
  1444.     move.w    #600,d0
  1445.     jsr    pause
  1446.  
  1447.     move.w    #147,bobX2
  1448.     move.w    #83,bobY2
  1449.     move.b    #89,bob_nr2
  1450.     jsr    print_bob
  1451.     move.w    #600,d0
  1452.     jsr    pause
  1453.  
  1454.     move.w    #142,bobX2
  1455.     move.w    #117,bobY2
  1456.     move.b    #89,bob_nr2
  1457.     jsr    print_bob
  1458.     move.w    #600,d0
  1459.     jsr    pause
  1460.  
  1461.     move.w    #142,bobX2
  1462.     move.w    #134,bobY2
  1463.     move.b    #90,bob_nr2
  1464.     jsr    print_bob
  1465.     move.w    #600,d0
  1466.     jsr    pause
  1467.  
  1468.     move.w    #145,bobX2
  1469.     move.w    #135,bobY2
  1470.     move.b    #91,bob_nr2
  1471.     jsr    print_bob
  1472.     move.w    #600,d0
  1473.     jsr    pause
  1474.  
  1475.     move.w    #148,bobX2
  1476.     move.w    #105,bobY2
  1477.     move.b    #91,bob_nr2
  1478.     jsr    print_bob
  1479.     move.w    #600,d0
  1480.     jsr    pause
  1481.  
  1482.     sub.w    #1,animtael
  1483.     bne    havlo1
  1484.  
  1485.     clr.l    bob_ON1
  1486.     clr.l    bob_ON2
  1487.     clr.l    bob_ON3
  1488. ;**************************
  1489. animer7:
  1490. ;(storm1)
  1491.     move.w    #550,$dff0a6
  1492.     move.b    #30,$dff0a8
  1493.     move.w    #500,$dff0c6
  1494.     move.b    #30,$dff0c8
  1495.  
  1496.     clr.l    cycle_1
  1497.     clr.l    cycle_2
  1498.     clr.l    cycle_3
  1499.     jsr    clear_screen
  1500.     move.l    #color1,color_table
  1501.     jsr    print_colors
  1502.     move.l    #text2,a0
  1503.     move.b    #1,tegn_farve
  1504.     jsr    askriv
  1505.     move.w    #10000,d0
  1506.     jsr    pause
  1507.  
  1508.     move.b    #30,d1
  1509.     move.w    #30,d0
  1510. stom1:    sub.w    #1,d0
  1511.     bne    stom1
  1512.     move.b    d1,$dff0a8
  1513.     move.b    d1,$dff0c8
  1514.     sub.b    #1,d1
  1515.     beq    voned
  1516.     bra    stom1
  1517.  
  1518. voned:    jsr    clear_screen
  1519.     
  1520.     move.b    #0,beam_ON
  1521.  
  1522.     move.w    #7,bobX1
  1523.     move.w    #80,bobY1
  1524.     move.b    #58,bob_nr1
  1525.     move.w    #0,bobY2
  1526.     move.b    #46,bob_nr2
  1527.     move.w    #0,bobY3
  1528.     move.b    #46,bob_nr3
  1529.     jsr    print_bob
  1530.     move.w    #71,bobX1
  1531.     move.b    #59,bob_nr1
  1532.     jsr    print_bob
  1533.     move.w    #135,bobX1
  1534.     move.w    #91,bobY1
  1535.     move.b    #60,bob_nr1
  1536.     jsr    print_bob
  1537.     move.w    #199,bobX1
  1538.     move.b    #61,bob_nr1
  1539.     jsr    print_bob
  1540.     move.w    #263,bobX1
  1541.     move.b    #62,bob_nr1
  1542.     jsr    print_bob
  1543.     move.w    #15,bobX1
  1544.     move.w    #112,bobY1
  1545.     move.b    #63,bob_nr1
  1546.     jsr    print_bob
  1547.     move.w    #79,bobX1
  1548.     move.b    #64,bob_nr1
  1549.     jsr    print_bob
  1550.     move.w    #143,bobX1
  1551.     move.b    #65,bob_nr1
  1552.     jsr    print_bob
  1553.     move.w    #207,bobX1
  1554.     move.b    #66,bob_nr1
  1555.     jsr    print_bob
  1556.     move.w    #271,bobX1
  1557.     move.b    #67,bob_nr1
  1558.     jsr    print_bob
  1559.     move.w    #4000,d0
  1560.     jsr    pause
  1561.  
  1562.     move.l    #text3,a0
  1563.     move.b    #30,tegn_farve
  1564.     jsr    askriv
  1565.  
  1566.     move.w    #4000,d0
  1567.     jsr    pause
  1568.  
  1569. ;*******  SLUT  ***********
  1570. animslut:
  1571. jmp    $fc0000
  1572.     jsr    stopcopper
  1573.     jsr    close_screen
  1574. ;    jsr    efree
  1575.     move.l    bobdata1,d6
  1576.     jsr    freebobs    
  1577.     rts
  1578. ;**********************************
  1579. delete:
  1580.     jsr    open_dos
  1581.     move.l    dos_base,a6
  1582.     move.l    #dname,d1
  1583.     jsr    -30-42(a6)
  1584.     jsr    0
  1585. dname:    dc.b    'bobprog2',0
  1586. align 4
  1587. ;**********************************
  1588. text2:
  1589. dc.b    30,30,30,30
  1590. dc.b    0,0,0,0,0,0,0,25,15,21,0,1,18,5,0,1,12,15,14,5,30
  1591. dc.b    0,0,0,0,1,7,1,9,14,19,20,0,9,13,16,15,19,9,2,12,5,0
  1592. dc.b    15,4,4,19,30,30
  1593. dc.b    0,0,0,1,0,18,1,20,9,15,14,1,12,0,
  1594. dc.b    20,18,1,14,19,1,3,20,9,15,14,0,27,30,30
  1595. dc.b    0,0,0,15,14,5,0,12,9,6,5,0,9,14,0
  1596. dc.b    5,24,3,8,1,14,7,5,0,15,6,30
  1597. dc.b    0,0,0,0,0,0,20,8,5,0,23,15,18,12,4,0,5,3,15,14,15,13,25,30,30
  1598. dc.b    0,0,0,25,15,21,0,1,18,5,0,20,8,5,0,15,14,12,25,0
  1599. dc.b    15,14,5,0,12,5,6,20,30
  1600. dc.b    0,0,0,0,20,15,0,3,15,13,16,12,5,20,5,0,20,8,5,0
  1601. dc.b    13,9,19,19,9,15,14,30,30
  1602. dc.b    0,0,0,20,8,5,18,5,0,9,19,0,14,15,0
  1603. dc.b    20,21,18,14,9,14,7,0,2,1,3,11,31    
  1604. text3:
  1605. dc.b    30,30,30,30,30,30,30,30,30
  1606. dc.b    30,30,30,30,30,30,30,30
  1607. dc.b    0,0,0,0,0,0,0,0,0
  1608. dc.b    3,15,13,9,14,7,0,19,15,15,14,0,27,31
  1609. align 4
  1610. ;**********************************
  1611. askriv:
  1612.     move.w    #0,tegn_X
  1613.     move.w    #0,tegn_Y
  1614. askri4:    move.b    (a0),tegn_nr
  1615.     beq    askri1
  1616.     cmp.b    #30,tegn_nr
  1617.     beq    askri2
  1618.     cmp.b    #31,tegn_nr
  1619.     beq    askri3
  1620.     sub.b    #1,tegn_nr
  1621.     move.l    a0,askrivbuf
  1622.     jsr    print_bogstav
  1623.     move.l    askrivbuf,a0
  1624. askri1:    add.w    #10,tegn_X
  1625.     add.l    #1,a0
  1626.     bra    askri4
  1627.  
  1628. askri2:    move.w    #0,tegn_X
  1629.     add.w    #10,tegn_Y
  1630.     add.l    #1,a0
  1631.     bra    askri4
  1632. askri3:    rts
  1633. askrivbuf:    dc.l    0
  1634. ;**********************************
  1635. color1:
  1636.     dc.w    0,$880,0,0,0,0,0,0
  1637.     dc.w    0,0,0,0,0,0,0,0
  1638.     dc.w    0,0,0,0,0,0,0,0
  1639.     dc.w    0,0,0,0,0,$444,$f00,$f50
  1640. ;**********************************
  1641. bang:    dc.w    180,70,84,165,75,85
  1642.     dc.w    161,95,88,179,73,87
  1643.     dc.w    198,81,86,184,65,84
  1644.     dc.w    172,69,85,190,79,84
  1645.     dc.w    170,101,88,182,75,84
  1646.     dc.w    179,93,87,209,82,86
  1647.     dc.w    211,75,84,218,83,86
  1648.     dc.w    187,86,84,168,111,88
  1649.     dc.w    174,81,84,156,106,88
  1650.     dc.w    175,90,87,169,64,84
  1651.     dc.w    165,79,87,186,53,84
  1652.     dc.w    170,58,85,184,67,84
  1653.     dc.w    205,80,86,163,52,84
  1654.     dc.w    161,66,87,164,78,84
  1655.     dc.w    142,101,88,192,62,84
  1656.     dc.w    170,89,88,221,57,84
  1657.     dc.w    204,58,85,237,70,86
  1658.     dc.w    232,53,84,251,61,86
  1659.     dc.w    167,66,84,223,44,84
  1660.     dc.w    220,63,87,231,70,84
  1661.     dc.w    212,92,88,210,52,84
  1662.     dc.w    208,65,87,196,40,84
  1663.     dc.w    178,48,85,198,73,84
  1664.     dc.w    188,83,87,210,88,84
  1665.     dc.w    188,106,88,196,58,85
  1666.     dc.w    208,68,84,174,79,87
  1667.     align 4
  1668.  
  1669. animtael:    dc.l    0
  1670. bangcount:    dc.l    0
  1671. ;***********************
  1672. pause:
  1673.     move.w    d0,pauset2
  1674. pause2:    move.w    #110,pauset
  1675. pause1:    sub.w    #1,pauset
  1676.     bne    pause1
  1677.     jsr    color_cycle
  1678.     jsr    music
  1679.     sub.w    #1,pauset2
  1680.     bne    pause2
  1681.     rts
  1682. pauset:    dc.l    0
  1683. pauset2:dc.l    0
  1684. ;****** Sort/Hvid ******
  1685. sh_pic:
  1686.     move.w    #29,d3
  1687.     move.l    #copcol,a0
  1688. shloop:    move.w    (a0),d0
  1689.     move.w    d0,d1
  1690.     move.w    d0,d2
  1691.     and.l    #$f,d0
  1692.     and.l    #$f0,d1
  1693.     lsr.w    #4,d1
  1694.     and.l    #$f00,d2
  1695.     lsr.w    #8,d2
  1696.     add.w    d1,d0
  1697.     add.w    d2,d0
  1698.     divu    #3,d0
  1699.     and.l    #$fff,d0
  1700.     move.l    d0,d1
  1701.     lsl.w    #4,d1
  1702.     move.l    d0,d2
  1703.     lsl.w    #8,d2
  1704.     add.w    d1,d0
  1705.     add.w    d2,d0
  1706.     move.w    d0,(a0)
  1707.     add.l    #4,a0
  1708.     sub.w    #1,d3
  1709.     bne    shloop
  1710.     rts
  1711.  
  1712. ;***** Color Cycle *****
  1713. color_cycle:
  1714.     move.l    cycle_1,d2
  1715.     beq    cych1        ;ingen cycle?
  1716.     move.l    cycle_a1,d3
  1717.     move.l    cycle_buf1,d4
  1718.     bne    cyclo2
  1719.     move.l    cycle_h1,cycle_buf1    
  1720.     jsr    cycle
  1721.     bra    cych1
  1722. cyclo2:    sub.l    #1,cycle_buf1
  1723.  
  1724. cych1:    move.l    cycle_2,d2
  1725.     beq    cych2
  1726.     move.l    cycle_a2,d3
  1727.     move.l    cycle_buf2,d4
  1728.     bne    cyclo3
  1729.     move.l    cycle_h2,cycle_buf2
  1730.     jsr    cycle
  1731.     bra    cych2
  1732. cyclo3:    sub.l    #1,cycle_buf2
  1733.  
  1734. cych2:    move.l    cycle_3,d2
  1735.     beq    cych3
  1736.     move.l    cycle_a3,d3
  1737.     move.l    cycle_buf3,d4
  1738.     bne    cyclo4
  1739.     move.l    cycle_h3,cycle_buf3
  1740.     jsr    cycle
  1741.     rts
  1742. cyclo4:    sub.l    #1,cycle_buf3
  1743. cych3:    rts
  1744.  
  1745. cycle:    move.l    #copcol,a0
  1746.     mulu    #4,d2
  1747.     mulu    #4,d3
  1748.     add.l    d2,a0
  1749.     move.l    a0,a1
  1750.     sub.l    #4,a0
  1751.     move.w    (a1,d3),d4
  1752.     
  1753. cyclo1:    move.w    (a0,d3),(a1,d3)        
  1754.     sub.l    #4,d3
  1755.     bne    cyclo1
  1756.  
  1757.     move.w    d4,(a1,d3)
  1758.     rts
  1759.  
  1760. cycle_1:    dc.l    0    ;sidste col.nr.
  1761. cycle_a1:    dc.l    0    ;antal
  1762. cycle_h1:    dc.l    0    ;hastighed
  1763. cycle_buf1:    dc.l    0
  1764.  
  1765. cycle_2:    dc.l    0
  1766. cycle_a2:    dc.l    0
  1767. cycle_h2:    dc.l    0
  1768. cycle_buf2:    dc.l    0
  1769.  
  1770. cycle_3:    dc.l    0
  1771. cycle_a3:    dc.l    0
  1772. cycle_h3:    dc.l    0
  1773. cycle_buf3:    dc.l    0
  1774. ;***********************
  1775. beregn_XY:
  1776.     clr.l    d0        ;Hent
  1777.     move.b    bob_nr,d0    ;hojde
  1778.     lsl.w    #1,d0        ;og bredde
  1779.     move.l    #HB_table,a0    ;.....
  1780.     add.l    d0,a0
  1781.     move.b    (a0),hojde
  1782.     add.l    #1,a0
  1783.     move.b    (a0),bredde
  1784.     lsl.w    #1,d0        ;Beregn
  1785.     move.l    #adr_table,a0    ;relativ adr.
  1786.     add.l    d0,a0        ;....
  1787.     move.l    (a0),d0
  1788.     move.l    bobdata,d1
  1789.     add.l    d1,d0
  1790.     move.l    d0,figur_adr
  1791.     move.w    bobX,d0        ;Hent X,Y
  1792.     move.w    bobY,d1        ;   -
  1793.     move.w    d0,bobshift    ;Beregn Shift
  1794.     and.w    #15,bobshift    ;   -    -
  1795.     lsr.w    #3,d0        ;Beregn X,Y
  1796.     mulu    #40,d1        ;  -   -    
  1797.     add.w    d0,d1        ;  -   -
  1798.     move.l    d1,XY_adr    ;og store
  1799.     clr.l    d0        ;Beregn BobSize
  1800.     clr.l    d1        ;.....
  1801.     move.b    hojde,d0
  1802.     move.b    bredde,d1
  1803.     lsl.w    #6,d0
  1804.     add.w    d1,d0
  1805.     move.w    d0,bobsize
  1806.     move.w    #40,d0        ;Beregn
  1807.     lsl.w    #1,d1        ;Skaerm
  1808.     sub.w    d1,d0        ;Modulo
  1809.     sub.w    #2,d0        ;....        
  1810.     move.w    d0,modulo    
  1811.     clr.l    d0
  1812.     move.b    hojde,d0    ;Beregn
  1813. move.l    d1,a4
  1814.     mulu    d1,d0        ;hojdr*bredde
  1815.     move.w    d0,naeste    ;....
  1816.     rts
  1817. ;***********************
  1818. loadbobs:
  1819.     move.l ExecBase,a6
  1820.     move.l #$10000,d1
  1821.     move.l bobdatasize,d0
  1822.     jsr    AllocMem(a6)
  1823.     move.l d0,d6
  1824.  
  1825.     jsr    open_dos
  1826.  
  1827.     move.l dos_base,a6
  1828.     move.l d7,d1
  1829.     move.l #1005,d2
  1830.     jsr    Open(a6)
  1831.     beq    out
  1832.     move.l d0,file
  1833.     jsr    load1
  1834. out:    rts
  1835.  
  1836. load1:    move.l dos_base,a6
  1837.     move.l file,d1
  1838.     move.l d6,d2
  1839.     move.l bobdatasize,d3
  1840.     jsr    Read(a6)
  1841.     
  1842.     move.l dos_base,a6
  1843.     move.l file,d1
  1844.     jsr    Close(a6)
  1845.     rts
  1846.  
  1847. ;**************************
  1848. freebobs:
  1849.     move.l    ExecBase,a6
  1850.     move.l    d6,a1
  1851.     move.l    bobdatasize,d0
  1852.     jsr    -30-180(a6)
  1853.     rts    
  1854. ;**************************
  1855. print_bob:
  1856.     jsr    music
  1857.     move.b    bob_nr1,bob_nr    ;Beregn X,Y 1
  1858.     move.w    bobX1,bobX
  1859.     move.w    bobY1,bobY
  1860.     move.l    bobdata1,bobdata
  1861.     jsr    beregn_XY    
  1862.     move.b    hojde,hojde1
  1863.     move.b    bredde,bredde1
  1864.     move.l    figur_adr,figur_adr1
  1865.     move.w    bobshift,bobshift1
  1866.     move.l    XY_adr,XY_adr1
  1867.     move.w    bobsize,bobsize1
  1868.     move.w    modulo,modulo1
  1869.     move.w    naeste,naeste1
  1870.  
  1871.     jsr    music
  1872.     move.b    bob_nr2,bob_nr    ;Beregn X,Y 2
  1873.     move.w    bobX2,bobX
  1874.     move.w    bobY2,bobY
  1875.     move.l    bobdata1,bobdata
  1876.     jsr    beregn_XY
  1877.     move.b    hojde,hojde2
  1878.     move.b    bredde,bredde2
  1879.     move.l    figur_adr,figur_adr2
  1880.     move.w    bobshift,bobshift2
  1881.     move.l    XY_adr,XY_adr2
  1882.     move.w    bobsize,bobsize2
  1883.     move.w    modulo,modulo2
  1884.     move.w    naeste,naeste2
  1885.         
  1886.     jsr    music
  1887.     move.b    bob_nr3,bob_nr
  1888.     move.w    bobX3,bobX
  1889.     move.w    bobY3,bobY
  1890.     move.l    bobdata1,bobdata
  1891.     jsr    beregn_XY
  1892.     move.b    hojde,hojde3
  1893.     move.b    bredde,bredde3
  1894.     move.l    figur_adr,figur_adr3
  1895.     move.w    bobshift,bobshift3
  1896.     move.l    XY_adr,XY_adr3
  1897.     move.w    bobsize,bobsize3
  1898.     move.w    modulo,modulo3
  1899.     move.w    naeste,naeste3
  1900.  
  1901.     jsr    music
  1902.     move.l    figur_adr1,d0    ;Make Mask 1
  1903.     move.w    bobsize1,d3
  1904.     clr.l    d4
  1905.     move.w    naeste1,d4
  1906.     move.l    #mask_buf1,d5
  1907.     jsr    make_mask
  1908.  
  1909.     jsr    music
  1910.     move.l    figur_adr2,d0    ;Make Mask 2
  1911.     move.w    bobsize2,d3
  1912.     clr.l    d4
  1913.     move.w    naeste2,d4
  1914.     move.l    #mask_buf2,d5
  1915.     jsr     make_mask
  1916.  
  1917.     jsr    music
  1918.     move.l    figur_adr3,d0
  1919.     move.w    bobsize3,d3
  1920.     clr.l    d4
  1921.     move.w    naeste3,d4
  1922.     move.l    #mask_buf3,d5
  1923.     jsr    make_mask
  1924.  
  1925.     jsr    music
  1926.     move.l    figur_adr1,d2    ;Bob Til Buffer 1
  1927.     move.l    #bob_buf1,d1
  1928.     move.w    bobsize1,d4
  1929.     clr.l    d5
  1930.     move.w    naeste1,d5
  1931.     jsr    bob_til_buffer
  1932.  
  1933.     jsr    music
  1934.     move.l    figur_adr2,d2    ;Bob til Buffer 2
  1935.     move.l    #bob_buf2,d1
  1936.     move.w    bobsize2,d4
  1937.     clr.l    d5
  1938.     move.w    naeste2,d5
  1939.     jsr    bob_til_buffer
  1940.  
  1941.     jsr    music
  1942.     move.l    figur_adr3,d2
  1943.     move.l    #bob_buf3,d1
  1944.     move.w    bobsize3,d4
  1945.     clr.l    d5
  1946.     move.w    naeste3,d5
  1947.     jsr    bob_til_buffer
  1948.  
  1949.     cmp.b    #0,beam_ON
  1950.     beq    beamhop
  1951. beam:    move.w    $dff006,d0
  1952.     and.w    #$ff00,d0
  1953.     cmp.w    beamsted,d0
  1954.     bne    beam
  1955. beamhop:
  1956.  
  1957.     jsr    music
  1958.     move.l    bobshift1,d4
  1959.     move.l    XY_adr1,d1
  1960.     move.l    #bob_buf1,d2
  1961.     move.w    modulo1,d6
  1962.     move.w    bobsize1,d0
  1963.     move.l    #mask_buf1,a1
  1964.     jsr    bob_til_skaerm
  1965.     move.b    #1,bob_ON1
  1966.  
  1967.     jsr    music
  1968.     tst.b    bob_ON2        ;Bob 2 ON ?
  1969.     beq    OFhop2        ;Nej - Hop
  1970.     move.l    gammel_XY2,d0    ;Fjern Bob 2
  1971.     move.l    #bag_buf2,d1
  1972.     move.w    G_modulo2,d6
  1973.     move.w    G_bobsize2,d4
  1974.     jsr    fjern_bob
  1975. OFhop2:    move.l    XY_adr2,gammel_XY2
  1976.     move.w    modulo2,G_modulo2
  1977.     move.w    bobsize2,G_bobsize2
  1978.  
  1979.     jsr    music
  1980.     tst.b    bob_ON3
  1981.     beq    OFhop3
  1982.     move.l    gammel_XY3,d0
  1983.     move.l    #bag_buf3,d1
  1984.     move.w    G_modulo3,d6
  1985.     move.w    G_bobsize3,d4
  1986.     jsr    fjern_bob
  1987. OFhop3:    move.l    XY_adr3,gammel_XY3
  1988.     move.w    modulo3,G_modulo3
  1989.     move.w    bobsize3,G_bobsize3
  1990.  
  1991.     jsr    music
  1992.     move.l    XY_adr2,d0    ;Save Baggrund 2
  1993.     move.l    #bag_buf2,d1
  1994.     move.w    modulo2,d6
  1995.     move.w    bobsize2,d4
  1996.     jsr    save_baggrund
  1997.     
  1998.     jsr    music
  1999.     move.l    XY_adr3,d0
  2000.     move.l    #bag_buf3,d1
  2001.     move.w    modulo3,d6
  2002.     move.w    bobsize3,d4
  2003.     jsr    save_baggrund
  2004.  
  2005.     jsr    music
  2006.     move.l    bobshift1,d4 ;Bob til skaerm 1
  2007.     move.l    XY_adr1,d1
  2008.     move.l    #bob_buf1,d2
  2009.     move.w    modulo1,d6
  2010.     move.w    bobsize1,d0
  2011.     move.l    #mask_buf1,a1
  2012.     jsr    bob_til_skaerm
  2013.  
  2014.     jsr    music
  2015.     move.l    bobshift2,d4 ;Bob til Skaerm 2
  2016.     move.l    XY_adr2,d1
  2017.     move.l    #bob_buf2,d2
  2018.     move.w    modulo2,d6
  2019.     move.w    bobsize2,d0
  2020.     move.l    #mask_buf2,a1
  2021.     jsr    bob_til_skaerm
  2022.     move.b    #1,bob_ON2
  2023.  
  2024.     jsr    music
  2025.     move.l    bobshift3,d4
  2026.     move.l    XY_adr3,d1
  2027.     move.l    #bob_buf3,d2
  2028.     move.w    modulo3,d6
  2029.     move.w    bobsize3,d0
  2030.     move.l    #mask_buf3,a1
  2031.     jsr    bob_til_skaerm
  2032.     move.b    #1,bob_ON3
  2033.     rts
  2034. beamsted:    dc.w    $d200
  2035. align 4
  2036. ;*********************************
  2037. bob_til_buffer:
  2038.     move.l    #4,d3        ;Antal BPlaner
  2039.  
  2040. lobob1:    btst    #14,$dff002
  2041.     bne    lobob1    
  2042.  
  2043.     move.l    d2,$dff050    ;Sourse A adr.
  2044.     move.l    d1,$dff054     ;Destination adr.
  2045.     move.w    #0,$dff064    ;Modulo A
  2046.     move.w    #2,$dff066    ;Modulo D
  2047.     move.l    #$ffffffff,$dff044
  2048.     move.w    #$9f0,$dff040    ;Control 0
  2049.     move.w    #0,$dff042    ;Control 1
  2050.     move.w    d4,$dff058    ;Size
  2051.     add.l    d5,d2        ;Naeste bobdata
  2052.     add.l    #820,d1        ;Naeste buffer
  2053.     dbeq    d3,lobob1        
  2054.     rts    
  2055. ;****************************
  2056. bob_til_skaerm:
  2057.     lsr.l    #4,d4        ;til brug i 
  2058.     move.l    d4,d7        ;Control reg 0&1
  2059.     add.l    #$fca,d7    ;d4=$?000 d7=$?fca
  2060.     move.l    #bitplanes,a0    ;1.BPlan Buffer
  2061.     add.w    #1,d0
  2062.     move.w    #4,d3        ;For loop
  2063.  
  2064. lobob2:    btst    #14,$dff002
  2065.     bne    lobob2
  2066.  
  2067.     move.l    (a0)+,d5    ;Hent BPlan adr.
  2068.     add.l    d1,d5        ;+ XY adr.
  2069.     move.l     a1,$dff050     ;Sourse A adr.
  2070.     move.l     d2,$dff04c      ;   -   B adr.
  2071.     move.l     d5,$dff048      ;Sourse C adr.
  2072.     move.l     d5,$dff054      ;Destination adr.
  2073.     move.w     #0,$dff064    ;Modulo A
  2074.     move.w    #0,$dff062    ;Modulo B
  2075.     move.w    d6,$dff060    ;Modulo    C
  2076.     move.w     d6,$dff066    ;Modulo D
  2077.     move.w     #$ffff,$dff044
  2078.     move.w     #$0,$dff046
  2079.     move.w     d7,$dff040    ;Control 0
  2080.     move.w     d4,$dff042    ;Control 1
  2081.     move.w     d0,$dff058    ;Size
  2082.     add.l    #820,d2        ;Naeste BobBuffer
  2083.     dbeq       d3,lobob2
  2084.     move.b    #1,bob_ON
  2085.     rts
  2086. ;*****************************
  2087. make_mask:
  2088.     move.l    d0,d1
  2089.     add.l     d4,d1
  2090.     move.w    #0,d7
  2091.     jsr    blit
  2092.     
  2093.     add.l    d4,d0
  2094.     add.l    d4,d0
  2095.     move.l    d5,d1
  2096.     move.w    #2,d7
  2097.     jsr    blit
  2098.  
  2099.     add.l    d4,d0
  2100.     move.l    d5,d1
  2101.     move.w    #2,d7
  2102.     jsr    blit
  2103.  
  2104.     add.l    d4,d0
  2105.     move.l    d5,d1
  2106.     move.w    #2,d7
  2107.     jsr    blit
  2108.     rts
  2109.  
  2110. blit:    btst    #14,$dff002
  2111.     bne    blit
  2112.  
  2113.     move.l    d5,$dff054 ;destination
  2114.     move.l    d0,$dff050    ;Souse A
  2115.     move.l    d1,$dff04c    ;Souse B
  2116.     move.w #0,$dff064    ;Modulo A
  2117.     move.w    d7,$dff062    ;Modulo B
  2118.     move.w #2,$dff066    ;Modulo    D
  2119.     move.w #$ffff,$dff044
  2120.     move.w #$ffff,$dff046
  2121.     move.w #$dfc,$dff040    ;control 0
  2122.     move.w #0,$dff042       ;   -    1
  2123.     move.w d3,$dff058        ;size
  2124.     rts
  2125. ;***************************
  2126. fjern_bob:
  2127.     move.l    #bitplanes,a0    ;Samme som 
  2128.     move.w    #4,d2
  2129.     add.w    #1,d4
  2130.  
  2131. lofjr:    btst    #14,$dff002
  2132.     bne    lofjr
  2133.     move.l    (a0)+,d3
  2134.     add.l    d0,d3
  2135.     move.l    d1,$dff050
  2136.     move.l    d3,$dff054
  2137.     move.w    #0,$dff064
  2138.     move.w    d6,$dff066
  2139.     move.l    #$ffffffff,$dff044
  2140.     move.w    #$9f0,$dff040
  2141.     move.w    #0,$dff042
  2142.     move.w    d4,$dff058
  2143.     add.l    #820,d1
  2144.     dbeq    d2,lofjr
  2145.     rts
  2146. ;***************************
  2147. save_baggrund:
  2148.     move.l    #bitplanes,a0    ;1.BPlan Buffer
  2149.     move.l    #4,d2        ;Loop taeller
  2150.     add.w    #1,d4
  2151.  
  2152. lobag:    btst    #14,$dff002
  2153.     bne    lobag
  2154.     move.l    (a0)+,d3    ;Hent BPlan adr.
  2155.     add.l    d0,d3        ;+ XY adr.
  2156.     move.l    d3,$dff050    ;Sourse A adr.
  2157.     move.l    d1,$dff054    ;Destination
  2158.     move.w    d6,$dff064    ;Modulo A
  2159.     move.w    #0,$dff066    ;Modulo B
  2160.     move.l    #$ffffffff,$dff044
  2161.     move.w    #$9f0,$dff040    ;Control 0
  2162.     move.w    #0,$dff042    ;Control 1
  2163.     move.w    d4,$dff058    ;Size
  2164.     add.l    #820,d1        ;Naeste Buffer
  2165.     dbeq    d2,lobag
  2166.     rts
  2167. ;***************************
  2168. ;  DATA FOR BOBS
  2169. ;***************************
  2170. bobX:        dc.w    0
  2171. bobX1:        dc.w    0
  2172. bobX2:        dc.w    0
  2173. bobX3:        dc.w    0
  2174. bobY:        dc.w    0
  2175. bobY1:        dc.w    0
  2176. bobY2:        dc.w    0
  2177. bobY3:        dc.w    0
  2178. bobsize:    dc.w    0
  2179. bobsize1:    dc.w    0
  2180. G_bobsize1:    dc.w    0
  2181. bobsize2:    dc.w    0
  2182. G_bobsize2:    dc.w    0
  2183. bobsize3:    dc.w    0
  2184. G_bobsize3:    dc.w    0
  2185. modulo:        dc.w    0
  2186. modulo1:    dc.w    0
  2187. G_modulo1:    dc.w    0
  2188. modulo2:    dc.w    0
  2189. G_modulo2:    dc.w    0
  2190. modulo3:    dc.w    0
  2191. G_modulo3:    dc.w    0
  2192. hojde:        dc.b    0
  2193. hojde1:        dc.b    0
  2194. hojde2:        dc.b    0
  2195. hojde3:        dc.b    0    
  2196. bredde:        dc.b    0
  2197. bredde1:    dc.b    0
  2198. bredde2:    dc.b    0
  2199. bredde3:    dc.b    0
  2200. bob_nr:        dc.b    0
  2201. bob_nr1:    dc.b    0
  2202. bob_nr2:    dc.b    0
  2203. bob_nr3:    dc.b    0
  2204. beam_ON:    dc.b    1
  2205. align 4
  2206. bob_ON:        dc.l    0
  2207. bob_ON1:    dc.l    0
  2208. bob_ON2:    dc.l    0
  2209. bob_ON3:    dc.l    0
  2210. bobshift:    dc.l    0
  2211. bobshift1:    dc.l    0
  2212. bobshift2:    dc.l    0
  2213. bobshift3:    dc.l    0
  2214. bitplane1:       blk.l     10,0
  2215. XY_adr:        dc.l    0
  2216. XY_adr1:          dc.l      0
  2217. XY_adr2:    dc.l    0
  2218. XY_adr3:    dc.l    0
  2219. gammel_XY:    dc.l    0
  2220. gammel_XY1:    dc.l    0
  2221. gammel_XY2:    dc.l    0
  2222. gammel_XY3:    dc.l    0
  2223. bobdata:    dc.l    0
  2224. bobdata1:         dc.l      0
  2225. bobdata2:    dc.l    0
  2226. bobdata3:    dc.l    0
  2227. figur_adr:    dc.l    0
  2228. figur_adr1:    dc.l    0
  2229. figur_adr2:    dc.l    0
  2230. figur_adr3:    dc.l    0
  2231. bobdatasize:     dc.l    85284
  2232. file:        dc.l      0 
  2233. bobfilename1:     dc.b      'northseabobs',0 
  2234. align 4
  2235. bobfilename2:    dc.b    'data:lee-bobs',0
  2236. align 4
  2237. naeste:        dc.w    0
  2238. naeste1:    dc.w    0
  2239. naeste2:    dc.w    0
  2240. naeste3:    dc.w    0
  2241. mask_buf1:    blk.w    500,0
  2242. mask_buf2:    blk.w    500,0
  2243. mask_buf3:    blk.w    500,0
  2244. bob_buf1:    blk.w     2100,0
  2245. bob_buf2:    blk.w    2100,0
  2246. bob_buf3:    blk.w    2100,0    
  2247. bag_buf1:    blk.w    2100,0
  2248. bag_buf2:    blk.w    2100,0
  2249. bag_buf3:    blk.w    2100,0
  2250. adr_table:    dc.l    0,660,1280,1900,2500,2790
  2251.         dc.l    3390,3680,4280,4820,5380
  2252.         dc.l    5960,6540,7140,7740,8360
  2253.         dc.l    8980,9910,10840,11770
  2254.         dc.l    11980,12270,12560,12850
  2255.         dc.l    13140,13430,13990,14490
  2256.         dc.l    14890,15170,15370,15730
  2257.         dc.l    16300,16870,17440,18010
  2258.         dc.l    19180,20980,22780,24580 
  2259.         dc.l    26980,29380,31800,34440
  2260.         dc.l    36420,39720,40840,40850
  2261.         dc.l    42800,44750,46700,48650
  2262.         dc.l    50600,52550,54500,56450
  2263.         dc.l    57350,58400,59420,60620
  2264.         dc.l    61820,62390,63150,63720
  2265.         dc.l    64960,66200,67440,68680
  2266.         dc.l    69300,70040,70780,71150
  2267.         dc.l    71890,72630,73000,73370
  2268.         dc.l    74110,74850,75270,75630
  2269.         dc.l    76020,76410,76750,76990
  2270.         dc.l    79960,81344,81974,82734
  2271.         dc.l    83394,84024,84464,84824
  2272.         dc.l    85284
  2273. HB_table:    dc.b    33,2,31,2,31,2,30,2,29,1
  2274.         dc.b    30,2,29,1,30,2,27,2,28,2
  2275.         dc.b    29,2,29,2,30,2,30,2,31,2
  2276.         dc.b    31,2,31,3,31,3,31,3,7,3
  2277.         dc.b    29,1,29,1,29,1,29,1,29,1
  2278.         dc.b    28,2,25,2,20,2,14,2,10,2
  2279.         dc.b    18,2,19,3,19,3,19,3,19,3
  2280.         dc.b    39,3,60,3,60,3,60,3,60,4
  2281.         dc.b    60,4,22,11,22,12,22,9,22,15
  2282.         dc.b    8,14,1,1,39,5,39,5,39,5
  2283.         dc.b    39,5,39,5,39,5,39,5,39,5
  2284.         dc.b    30,3,35,3,34,3,30,4,30,4
  2285.         dc.b    19,3,19,4,19,3,31,4,31,4
  2286.         dc.b    31,4,31,4,31,2,37,2,37,2
  2287.         dc.b    37,1,37,2,37,2,37,1,37,1
  2288.         dc.b    37,2,37,2,42,1,36,1,39,1
  2289.         dc.b    39,1,34,1,24,1,33,9,46,3
  2290.         dc.b    21,3,38,2,33,2,21,3,22,2
  2291.         dc.b    18,2,23,2
  2292. ;***************************
  2293. ;offsets intuition
  2294. ;
  2295. OpenIntuition =-30-0
  2296. Intuition     =-30-6
  2297. CloseScreen   =-30-36
  2298. OpenScreen    =-30-168
  2299. PrintIText    =-30-186
  2300. ;
  2301. ;offsets exec
  2302. ;
  2303. OpenLib       =-30-378
  2304. OldOpenLibrary=-30-378
  2305. CloseLibrary  =-30-384
  2306. AllocMem      =-30-168
  2307. FreeMem       =-30-180
  2308. ;
  2309. ;offsets graphics (gfx)
  2310. ;
  2311. LoadRGB4      =-30-162
  2312. ;
  2313. ;offsets DOS
  2314. ;
  2315. Open          =-30
  2316. Close         =-30-6
  2317. Read          =-30-12
  2318. Exit          =-30-114
  2319. ;
  2320. ExecBase      =4
  2321. ;
  2322. even
  2323. ;************************
  2324. printpicture:
  2325.  clr.l  d0
  2326.  move.l  ExecBase,a6
  2327.  lea.l  gfxname,a1
  2328.  jsr  oldopenlibrary(a6)
  2329.  move.l  d0,gfxbase
  2330.  
  2331.  move.l  execbase,a6
  2332.  lea  intname,a1
  2333.  jsr  oldopenlibrary(a6)
  2334.  move.l  d0,a6
  2335.  move.l  d0,intuitionbase
  2336. ;
  2337.  jsr  open_dos
  2338.  jsr  open_file
  2339.  move.l  #disk_buf,d2
  2340.  move.l  #8,d3
  2341.  jsr  load
  2342.  move.l  d2,a0
  2343. ;
  2344.  move.l  4(a0),d3
  2345.  move.l  d3,chunk_size
  2346.  jsr allocate
  2347.  move.l  chunk_size,d3
  2348.  move.l  pic_buf,d2
  2349.  jsr  load
  2350.  jsr  close_file
  2351. ;
  2352.  jsr  iff_search
  2353. ;
  2354.  jsr  pic_print
  2355.  jsr  free
  2356.  rts
  2357.  
  2358. ;
  2359. ; data 
  2360. align 4
  2361. title:  dc.b 'JIM`S BOB-CODE PROGRAM 10/11/87',0
  2362. align 4
  2363. dosname:  dc.b 'dos.library',0
  2364. align 4
  2365. intname:  dc.b 'intuition.library',0
  2366. align 4
  2367. gfxname:  dc.b 'graphics.library',0
  2368. align 4
  2369. gfxbase:  blk.l 1,0
  2370. intuitionbase:  blk.l  1,0
  2371. dos_base:  blk.l  1,0
  2372. ;
  2373. align 4
  2374. Newscreen:
  2375.         dc.w  0,0
  2376. width:     dc.w  320
  2377. height:    dc.w  200
  2378. depth:     dc.w  5
  2379. dpen_bpen: dc.b  0,1
  2380. modes:     dc.w  $0,$0f
  2381. udcs:      dc.l  font
  2382. name:      dc.l  title
  2383. gadg:      dc.l  0,0
  2384.  
  2385. font=0
  2386. screen:  dc.l 0
  2387.  
  2388. even
  2389. ;
  2390. bitplanes: blk.l 10,0
  2391. planes:  blk.l  10,0
  2392. color_map:  blk.w  32,0
  2393. black_color:  blk.w  32,0
  2394. even
  2395. ;
  2396. planes_init:
  2397.  move.l  screen,a0
  2398.  add.l  #$c0,a0
  2399.  move.l  #planes,a1
  2400.  lea picplanes,a2
  2401.  move.l #bitplanes,a3
  2402. move.w  #5,d0
  2403. plane_loop:
  2404.  move.w  d0,d1
  2405.  mulu  #4,d1
  2406.  move.l     (a0,d1),(a2,d1) 
  2407.  move.l  (a0,d1),(a1,d1)
  2408.  move.l  (a0,d1),(a3,d1)
  2409.  dbra  d0,plane_loop
  2410.  
  2411. rts
  2412. ;
  2413. colors_init:
  2414.  move.l  cmap_chunk,a0
  2415.  add.l  #8,a0
  2416.  move.l  #color_map,a1
  2417.  move.w  #31,d7
  2418. co_loop1:
  2419.  clr.w  d0
  2420.  move.b  (a0)+,d0
  2421.  and.b  #$f0,d0
  2422.  lsl.w  #4,d0
  2423.  move.b  (a0)+,d0
  2424.  and.w  #$0ff0,d0
  2425.  clr.w  d1
  2426.  move.b  (a0)+,d1
  2427.  lsr.b  #4,d1
  2428.  and.b  #$0f,d1
  2429.  or.b  d1,d0
  2430.  move.w  d0,(a1)+
  2431.  dbra  d7,co_loop1
  2432.  rts
  2433. ;
  2434. pic_print:
  2435.  jsr planes_init
  2436. jsr colors_init
  2437.  jsr black_color_set
  2438.  jsr unpacker
  2439.  
  2440.  jsr color_set
  2441.  rts
  2442. ;
  2443. color_set:
  2444.  move.l    #color_map,color_table
  2445.  jsr    print_colors
  2446.  rts
  2447. ;
  2448. black_color_set:
  2449.  move.l    #black_color,color_table
  2450.  jsr    print_colors
  2451.  rts
  2452. ;
  2453. iff_search:
  2454.  move.l  pic_buf,a0
  2455.  add.l  #4,a0
  2456.  move.l  a0,bmhd_chunk
  2457.  move.l  4(a0),d0
  2458.  add.l  d0,a0
  2459.  add.l  #8,a0
  2460.  move.l  a0,cmap_chunk
  2461. iff_l1:
  2462.  move.l  4(a0),d0
  2463.  add.l  d0,a0
  2464.  add.l  #8,a0
  2465.  move.l  #'BODY',d1
  2466.  cmp.l  (a0),d1
  2467.  bne  iff_l1
  2468.  move.l  a0,body_chunk
  2469.  move.l  bmhd_chunk,a2
  2470.  move.l  a2,a1
  2471.  add.l  #16,a1
  2472.  clr.w  d0
  2473.  move.b  (a1),d0
  2474.  cmp.w  #6,d0
  2475.  blt  iff_cont
  2476.  move.w  #6,d0
  2477. iff_cont:
  2478.  move.l  #newscreen,a0
  2479.  move.w  d0,8(a0)
  2480.  subq.w  #1,d0
  2481.  move.w  d0,planes_num
  2482.  
  2483.  move.l  a2,a1
  2484.  add.l  #18,a1
  2485.  move.b  (a1),comp_flag
  2486.  move.l  a2,a1
  2487.  add.l  #8,a1
  2488.  clr.l  d0
  2489.  move.w  (a1)+,d0
  2490.  move.w  d0,width
  2491.  clr.l  d3
  2492.  cmp.w  #640,d0
  2493.  blt  iff_cont3
  2494.  or.w  #$8000,d3
  2495. iff_cont3:
  2496.  move.w  d0,d1
  2497.  and.w  #7,d1
  2498.  beq  iff_cont2
  2499.  or.w  #8,d0
  2500. iff_cont2:
  2501.  divu  #8,d0
  2502.  move.w  d0,width_bytes
  2503.  clr.l d0
  2504.  move.w  (a1),d0
  2505.  move.w  d0,height
  2506.  cmp.w  #400,d0
  2507.  blt  iff_cont4
  2508.  or.w #4,d3
  2509. iff_cont4:
  2510.  move.w  d3,modes
  2511.  rts
  2512. ;
  2513. unpacker:
  2514.  move.l  # planes,a2
  2515.  move.l  body_chunk,a0
  2516.  add.l  #4,a0
  2517.  move.l  (a0)+,d7
  2518.  move.l  a0,a3
  2519.  add.l  d7,a3
  2520.  move.w  planes_num,d2
  2521.  addq.w  #1,d2
  2522. ;
  2523. unp_loop:
  2524.  cmp.l  a3,a0
  2525.  bge unpack_end
  2526. ;
  2527.  clr.w  d3
  2528. pic_loop1:
  2529.  move.w  d3,d4
  2530.  mulu  #4,d4
  2531.  move.l  (a2,d4),a5
  2532.  jsr  unpack_row
  2533.  move.l  a5,(a2,d4)
  2534.  addq.w  #1,d3
  2535.  cmp.w  d2,d3
  2536.  blt  pic_loop1
  2537.  move.l  bmhd_chunk,a5
  2538.  andi.b  #1,17(a5)
  2539.  beq  unp_loop
  2540.  move.l  #mask_dummy,a5
  2541.  jsr  unpack_row
  2542.  bra  unp_loop
  2543.  unpack_row: move.l  d2,-(sp)
  2544.  move.w  width_bytes,d2
  2545.  unp_loop1: tst.w  d2
  2546.  beq  unpack_row_end
  2547.  clr.w  d0
  2548.  tst.w  comp_flag
  2549.  bne  unp_comp
  2550.  move.w  width_bytes,d0
  2551.  subq.w  #1,d0
  2552.  bra  unp_loop2
  2553. unp_comp:
  2554.  move.b  (a0)+,d0
  2555.  bmi  packed
  2556. unp_loop2:
  2557.  move.b  (a0)+,(a5)+
  2558.  subq.w  #1,d2
  2559.  dbra  d0,unp_loop2
  2560.  bra  unp_loop1
  2561. ;
  2562. packed:
  2563.  neg.b  d0
  2564.  move.b  (a0)+,d1
  2565. unp_loop3:
  2566.  move.b  d1,(a5)+
  2567.  subq.w  #1,d2
  2568.  dbra  d0,unp_loop3
  2569.  bra  unp_loop1
  2570. ;
  2571. unpack_row_end:
  2572.  move.l  (sp)+,d2
  2573.  rts
  2574. ;
  2575. unpack_end:
  2576.  rts
  2577. ;
  2578. ;
  2579. ; chunk-data
  2580. ;
  2581. align 4
  2582. bmhd_chunk:  blk.l 1,0
  2583. cmap_chunk:  blk.l 1,0
  2584. body_chunk:  blk.l 1,0
  2585. planes_num:  blk.w 1,0
  2586. comp_flag:   blk.w 1,0
  2587. width_bytes:  blk.w 1,0
  2588. ;
  2589. ;diskroutine for filehandling
  2590. ;
  2591. open_dos:
  2592.  move.l  execbase,a6
  2593.  lea.l  dosname,a1
  2594.  jsr  OpenLib(a6)
  2595.  move.l  d0,dos_base
  2596. prg_end:
  2597.  rts
  2598. ;
  2599. open_file:
  2600.  move.l  dos_base,a6
  2601.  move.l filename,d1
  2602.  move.l #1005,d2
  2603.  jsr Open(a6)
  2604.  beq prg_end
  2605.  move.l  d0,bif
  2606.  rts
  2607. ;
  2608. load:
  2609.  move.l  dos_base,a6
  2610.  move.l  bif,d1
  2611.  jsr  Read(a6)
  2612.  rts
  2613. ;
  2614. close_file:
  2615.  move.l  dos_base,a6
  2616.  move.l  bif,d1
  2617.  jsr  Close(a6)
  2618.  rts
  2619. ;
  2620. allocate:
  2621.  move.l  execbase,a6
  2622.  move.l  #$10000,d1
  2623.  move.l  chunk_size,d0
  2624.  jsr  AllocMem(a6)
  2625.  move.l  d0,pic_buf
  2626.  rts
  2627. ;
  2628. ;
  2629. free:
  2630.  move.l  execbase,a6
  2631.  move.l  pic_buf,a1
  2632.  move.l  chunk_size,d0
  2633.  jsr  FreeMem(a6)
  2634.  rts
  2635. ;
  2636. ;
  2637. ;date for filehandlimg
  2638. ;
  2639. align 4
  2640. filename:    dc.l    0
  2641. baggrund1:    dc.b 'jims_plat',0
  2642. align 4
  2643. baggrund2:    dc.b 'plat2',0
  2644. align 4
  2645. baggrund3:    dc.b 'terrorist',0
  2646. align 4
  2647. baggrund4:    dc.b 'antiterror2',0
  2648. align 4
  2649. baggrund5:    dc.b 'solnedgang',0
  2650. align 4
  2651. baggrund6:    dc.b 'havsn0d',0
  2652. align 4
  2653. logo_name:    dc.b 'InnerPriseLogX',0
  2654. align 4
  2655. bif:  dc.l 0
  2656. disk_buf: blk.b  10,0
  2657. align 4
  2658. pic_buf: blk.l  1,0
  2659. chunk_size: blk.l  1,0
  2660. mask_dummy: blk.b  128,0
  2661. picplanes :blk.w $200
  2662. ;-end-
  2663. ;********* openscreen ************
  2664. open_screen:
  2665.     move.l  ExecBase,a6
  2666.     lea    intname,a1
  2667.     jsr    OldOpenLibrary(a6)
  2668.     move.l    d0,intuitionbase
  2669.  
  2670.     move.l    intuitionbase,a6
  2671.     lea.l    newscreen,a0
  2672.     jsr    OpenScreen(a6)
  2673.     move.l    d0,screen
  2674.     rts
  2675. ********** closescreen ***********
  2676. close_screen:
  2677.     move.l    intuitionbase,a6
  2678.     move.l    screen,a0
  2679.     jsr    CloseScreen(a6)
  2680.     rts
  2681. ;********* print colors **********
  2682. print_colors:
  2683.     move.w    #32,d4
  2684.     move.l    color_table,a2
  2685.     move.l    #copcol,a3
  2686. gloop3:    move.w    (a2),d7
  2687.     move.w    d7,(a3)
  2688.     add.l    #2,a2
  2689.     add.l    #4,a3
  2690.     sub.w    #1,d4
  2691.     bne    gloop3
  2692.     rts
  2693. color_table:    dc.l    0
  2694. ;********* coppertest ************
  2695. startcopper:
  2696.     move.l     #bitplanes,a0   ;laeg
  2697.     move.w     (a0),bp1h    ;bitplan-adr.
  2698.     add.l   #2,a0        ;ind i
  2699.     move.w    (a0),bp1l    ;copperlist
  2700.     add.l     #2,a0        ;  -
  2701.     move.w    (a0),bp2h    ;  -
  2702.     add.l     #2,a0        ;  -
  2703.     move.w    (a0),bp2l    ;  -
  2704.     add.l    #2,a0
  2705.     move.w    (a0),bp3h
  2706.     add.l    #2,a0
  2707.     move.w    (a0),bp3l
  2708.     add.l    #2,a0
  2709.     move.w    (a0),bp4h
  2710.     add.l    #2,a0
  2711.     move.w    (a0),bp4l
  2712.     add.l    #2,a0
  2713.     move.w    (a0),bp5h
  2714.     add.l    #2,a0
  2715.     move.w    (a0),bp5l
  2716.  
  2717.     ;jsr    save
  2718.  
  2719.     move.w #$30,$dff09a      ; Stop Interrupts
  2720.     move.w    #$20,$dff096    ; Stop Sprite DMA
  2721.  
  2722. cbeam:    move.w    $dff006,d0
  2723.     and.w    #$ff00,d0
  2724.     cmp.w    #$fc00,d0
  2725.     bne    cbeam
  2726.  
  2727.     move.l #data,$dff084     ; COPLC - adr.
  2728.     move.w #1,$dff08a        ; COPJMP   
  2729.     rts
  2730. ;*********************************
  2731. stopcopper:
  2732.     move.w #1,$dff088    ; COPJMP 1
  2733.     move.w #$8030,$dff09a; start VB-Int.
  2734.     rts
  2735. ;******* copper-list ************
  2736. data:     dc.w    $8e    ; DIWSTRT
  2737.     dc.w    $2c81    
  2738.     dc.w    $90    ; DIWSTOP
  2739.     dc.w    $f4c1
  2740.     dc.w    $92    ; DFFSTRT
  2741.     dc.w    $38
  2742.     dc.w    $94    ; DFFSTOP
  2743.     dc.w    $d0    
  2744.     dc.w     $e0    ; BPL1PTH
  2745. bp1h:    dc.w    0
  2746.     dc.w    $e2    ; BPL1PTL    
  2747. bp1l:    dc.w    0
  2748.     dc.w    $e4    ; BPL2PTH
  2749. bp2h:    dc.w    0
  2750.     dc.w    $e6    ; BPL2PTL
  2751. bp2l:    dc.w    0
  2752.     dc.w    $e8    ; BPL3PTH
  2753. bp3h:    dc.w    0
  2754.     dc.w    $ea    ; BPL3PTL
  2755. bp3l:    dc.w    0
  2756.     dc.w    $ec    ; BPL4PTH
  2757. bp4h:    dc.w    0
  2758.     dc.w    $ee    ; BPL4PTL
  2759. bp4l:    dc.w    0
  2760.     dc.w     $f0    ; BPL5PTH
  2761. bp5h:    dc.w    0
  2762.     dc.w    $f2    ; BPL5PTL
  2763. bp5l:    dc.w    0
  2764.     dc.w    $108    ;Modulo 1
  2765.     dc.w    0
  2766.     dc.w    $10a    ;Modulo 2
  2767.     dc.w    0
  2768.     dc.w    $100    ;BPlanControl 0
  2769.     dc.w    $5000
  2770.     dc.w    $102    ; -  -  -  -  1
  2771.     dc.w    0
  2772.     dc.w    $104    ; -  -  -  -  2
  2773.     dc.w    0    
  2774.     dc.w    $180
  2775. copcol:    dc.w    0,$182,0,$184,0,$186,0,$188
  2776.     dc.w    0,$18a,0,$18c,0,$18e
  2777.     dc.w    0,$190,0,$192,0,$194,0,$196
  2778.     dc.w    0,$198,0,$19a,0,$19c,0,$19e
  2779.     dc.w    0,$1a0,0,$1a2,0,$1a4,0,$1a6
  2780.     dc.w    0,$1a8,0,$1aa,0,$1ac,0,$1ae
  2781.     dc.w    0,$1b0,0,$1b2,0,$1b4,0,$1b6
  2782.     dc.w    0,$1b8,0,$1ba,0,$1bc,0,$1be
  2783.     dc.w    0
  2784.     dc.w     $ffff,$fffe ; wait 
  2785. ;**************************************
  2786. save:
  2787.     jsr    open_dos
  2788.     move.l    dos_base,a6
  2789.     move.l    #savename,d1
  2790.     move.l    #1005,d2
  2791.     jsr    Open(a6)
  2792.     move.l    d0,bif
  2793.  
  2794.     move.l    dos_base,a6
  2795.     move.l    #bif,d1
  2796.     move.l    #savename,d2
  2797.     move.l    #20,d3
  2798.     jsr    -30-18(a6)
  2799.     rts    
  2800. savename:    dc.b    'q2f5',0
  2801. align 4
  2802. ;**** LOAD EFFEKT FILES ***************
  2803. loadsound:
  2804.  jsr    eopen_dos
  2805.  move.l #file0,efilename        ;file navn
  2806.  move.l #5564,echunk_size    ;laengde af file
  2807.  jsr    eopen_file 
  2808.  move.l epic_buf,sound0        ;start adr. pa file 
  2809.  
  2810.  jsr    eopen_dos
  2811.  move.l    #file1,efilename
  2812.  move.l    #25000,echunk_size
  2813.  jsr    eopen_file
  2814.  move.l    epic_buf,sound1
  2815.  
  2816.  jsr    eopen_dos
  2817.  move.l #file2,efilename
  2818.  move.l    #4670,echunk_size
  2819.  jsr    eopen_file
  2820.  move.l epic_buf,sound2
  2821.  
  2822.  jsr    eopen_dos
  2823.  move.l #file3,efilename
  2824.  move.l #10394,echunk_size
  2825.  jsr    eopen_file
  2826.  move.l epic_buf,sound3
  2827.  
  2828.  jsr    eopen_dos
  2829.  move.l #file4,efilename
  2830.  move.l #21780,echunk_size
  2831.  jsr    eopen_file
  2832.  move.l epic_buf,sound4
  2833.  
  2834.  jsr    eopen_dos
  2835.  move.l    #file5,efilename
  2836.  move.l #27742,echunk_size
  2837.  jsr    eopen_file
  2838.  move.l epic_buf,sound5
  2839.  
  2840.  jsr    eopen_dos
  2841.  move.l #file6,efilename
  2842.  move.l    #10044,echunk_size
  2843.  jsr    eopen_file
  2844.  move.l epic_buf,sound6
  2845.  
  2846.  jsr    eopen_dos
  2847.  move.l    #file7,efilename
  2848.  move.l #17202,echunk_size
  2849.  jsr    eopen_file
  2850.  move.l epic_buf,sound7
  2851.  
  2852.  jsr    eopen_dos
  2853.  move.l #file8,efilename
  2854.  move.l    #20854,echunk_size
  2855.  jsr    eopen_file
  2856.  move.l    epic_buf,sound8
  2857.  
  2858.  jsr    eopen_dos
  2859.  move.l    #file9,efilename
  2860.  move.l    #1054,echunk_size
  2861.  jsr    eopen_file
  2862.  move.l    epic_buf,sound9
  2863.  
  2864.  jsr    eopen_dos
  2865.  move.l #file10,efilename
  2866.  move.l #16214,echunk_size
  2867.  jsr    eopen_file
  2868.  move.l epic_buf,sound10
  2869.  add.l    #1500,sound10
  2870.  
  2871.  jsr    eopen_dos
  2872.  move.l    #file11,efilename
  2873.  move.l    #5810,echunk_size
  2874.  jsr    eopen_file
  2875.  move.l    epic_buf,sound11
  2876.  
  2877.  jsr    eopen_dos
  2878.  move.l    #file13,efilename
  2879.  move.l    #25850,echunk_size
  2880.  jsr    eopen_file
  2881.  move.l    epic_buf,sound13
  2882.  
  2883.  jsr    eopen_dos
  2884.  move.l    #tegnfile,efilename
  2885.  move.l    #2000,echunk_size
  2886.  jsr    eopen_file
  2887.  move.l    epic_buf,tegn_data
  2888.  rts
  2889.  
  2890. tegnfile:    dc.b 'tegn2',0
  2891. ;**** OPEN_DOS *****************
  2892. eopen_dos:
  2893.  move.l  execbase,a6
  2894.  lea.l  edosname,a1
  2895.  jsr  OpenLib(a6)
  2896.  move.l  d0,edos_base
  2897.  rts
  2898. ;**** OPEN_FILE ****************
  2899. eopen_file:
  2900.  move.l  edos_base,a6
  2901.  move.l efilename,d1
  2902.  move.l #1005,d2
  2903.  jsr Open(a6)
  2904.  beq     out1
  2905.  move.l  d0,ebif
  2906.  jsr     eallocate
  2907. out1: rts
  2908. ;**** LOAD *********************
  2909. eload:
  2910.  move.l  edos_base,a6
  2911.  move.l  ebif,d1
  2912.  move.l     echunk_size,d3
  2913.  move.l  epic_buf,d2
  2914.  jsr  Read(a6)
  2915.  jsr  eclose_file
  2916.  rts
  2917. ;**** CLOSE_FILE ***************
  2918. eclose_file:
  2919.  move.l  edos_base,a6
  2920.  move.l  ebif,d1
  2921.  jsr  Close(a6)
  2922.  rts
  2923. ;**** ALLOCATE *****************
  2924. eallocate:
  2925.  move.l  execbase,a6
  2926.  move.l  #$10000,d1
  2927.  move.l  echunk_size,d0
  2928.  jsr  AllocMem(a6)
  2929.  beq    out2
  2930.  move.l  d0,epic_buf
  2931.  jsr    eload
  2932. out2: rts
  2933. ;**** FREE *********************
  2934. efree:
  2935.     move.l    execbase,a6
  2936.     move.l    sound4,a1
  2937.     move.l    #21780,d0
  2938.     jsr    FreeMem(a6)
  2939.     rts
  2940. ;**** EFFEKT FILES ********************
  2941. ;
  2942. align 4
  2943. file0:  dc.b 'soundfiles/noise1',0
  2944. align 4
  2945. file1:    dc.b 'soundfiles/heli5',0
  2946. align 4
  2947. file2:    dc.b 'soundfiles/radio4',0
  2948. align 4
  2949. file3:    dc.b 'soundfiles/radio5',0
  2950. align 4
  2951. file4:    dc.b 'soundfiles/radio7',0
  2952. align 4
  2953. file5:    dc.b 'soundfiles/test2',0
  2954. align 4
  2955. file6:    dc.b 'soundfiles/pistol2',0
  2956. align 4
  2957. file7:    dc.b 'soundfiles/maskin',0
  2958. align 4
  2959. file8:    dc.b 'soundfiles/skrig2',0
  2960. align 4
  2961. file9:    dc.b 'soundfiles/printer',0
  2962. align 4
  2963. file10: dc.b 'soundfiles/klaus1',0
  2964. align 4
  2965. file11: dc.b 'soundfiles/alarm1',0
  2966. align 4
  2967. file12: dc.b 'soundfiles/storm1',0
  2968. align 4
  2969. file13: dc.b 'soundfiles/bom1',0
  2970.  
  2971. ;**** VARIABLER TIL LOAD PROGRAM ****
  2972. align 4
  2973. edosname: dc.b 'dos.library',0
  2974. align 4
  2975. edos_base: blk.l 1,0
  2976. ebif:  dc.l 0
  2977. edisk_buf: blk.b  10,0
  2978. align 4
  2979. efilename: dc.l 0
  2980. epic_buf: blk.l  1,0
  2981. echunk_size: dc.l   0
  2982. emask_dummy: blk.b  128,0
  2983. epicplanes :blk.w $200
  2984. ;-end-
  2985.  
  2986. ;*********************************
  2987. ;*  EFFEKT PROGRAM               *
  2988. ;*********************************
  2989.  
  2990. ;**** KANAL 0 ********************
  2991. kanal0:    clr.l    d0
  2992.     move.b    effektnr,d0    ;sound nr.
  2993.     mulu    #4,d0
  2994.     move.l    d0,a0
  2995.     move.l    #sound0,a1
  2996.     move.l    (a0,a1),$dff0a0    ;start adr.
  2997.     move.l    #length0,a1
  2998.     move.w    (a0,a1),$dff0a4    ;length
  2999.     move.l    #freq0,a1
  3000.     move.w    (a0,a1),$dff0a6    ;rate
  3001.     move.l    #vol0,a1
  3002.     move.w    (a0,a1),$dff0a8
  3003.     clr.l    d0
  3004.     move.b    slut,d0        ;slut ja/nej
  3005.     cmp.b    #1,d0
  3006.     beq    Aslut
  3007.     move.w    #33281,$dff096
  3008.     rts
  3009. Aslut:    move.w    #33281,$dff096
  3010.     clr.l    d0
  3011.     move.b    #200,d0
  3012. Aloop:    cmp.b    #1,d0
  3013.     beq    Aloop1
  3014.     sub.b    #1,d0
  3015.     bra    Aloop
  3016. Aloop1:    move.w    #1,$dff0a4
  3017.     rts
  3018. ;**** KANAL 1 *******************
  3019. kanal1:    clr.l    d0
  3020.     move.b    effektnr,d0
  3021.     mulu    #4,d0
  3022.     move.l    d0,a0
  3023.     move.l    #sound0,a1
  3024.     move.l    (a0,a1),$dff0b0
  3025.     move.l    #length0,a1
  3026.     move.w    (a0,a1),$dff0b4
  3027.     move.l    #freq0,a1
  3028.     move.l    (a0,a1),$dff0b6
  3029.     move.l    #vol0,a1
  3030.     move.l    (a0,a1),$dff0b8
  3031.     clr.l    d0
  3032.     move.b    slut,d0
  3033.     cmp.b    #1,d0
  3034.     beq    Bslut
  3035.     move.w    #33282,$dff096
  3036.     rts
  3037. Bslut:    move.w    #33282,$dff096
  3038.     clr.l    d0
  3039.     move.w    #200,d0
  3040. Bloop:    cmp.b    #1,d0
  3041.     beq    Bloop1
  3042.     sub.w    #1,d0
  3043.     bra    Bloop
  3044. Bloop1:    move.w    #1,$dff0b4
  3045.     rts
  3046.  
  3047. ;**** KANAL 2 *********************
  3048. kanal2:    clr.l    d0
  3049.     move.b    effektnr,d0
  3050.     mulu    #4,d0
  3051.     move.l    d0,a0
  3052.     move.l    #sound0,a1
  3053.     move.l    (a0,a1),$dff0c0
  3054.     move.l    #length0,a1
  3055.     move.w    (a0,a1),$dff0c4
  3056.     move.l    #freq0,a1
  3057.     move.w    (a0,a1),$dff0c6
  3058.     move.l    #vol0,a1
  3059.     move.w    (a0,a1),$dff0c8
  3060.     clr.l    d0
  3061.     move.b    slut,d0    
  3062.     cmp.b    #1,d0
  3063.     beq    Cslut
  3064.     move.w    #33284,$dff096
  3065.     rts
  3066. Cslut:    move.w    #33284,$dff096
  3067.     clr.l    d0
  3068.     move.w    #200,d0
  3069. Cloop:    cmp.w    #1,d0
  3070.     beq    Cloop1
  3071.     sub.w    #1,d0
  3072.     bra    Cloop
  3073. Cloop1:    move.w    #1,$dff0c4
  3074.     rts
  3075. ;**** KANAL 3 *********************
  3076. kanal3:    clr.l    d0
  3077.     move.b    effektnr,d0
  3078.     mulu    #4,d0
  3079.     move.l    d0,a0
  3080.     move.l    #sound0,a1
  3081.     move.l    (a0,a1),$dff0d0
  3082.     move.l    #length0,a1
  3083.     move.w    (a0,a1),$dff0d4
  3084.     move.l    #freq0,a1
  3085.     move.w    (a0,a1),$dff0d6
  3086.     move.l    #vol0,a1
  3087.     move.w    (a0,a1),$dff0d8
  3088.     clr.l    d0
  3089.     move.b    slut,d0
  3090.     cmp.b    #1,d0
  3091.     beq    Dslut
  3092.     move.w    #33288,$dff096
  3093.     rts
  3094. Dslut:    move.w    #33288,$dff096
  3095.     clr.l    d0
  3096.     move.w    #200,d0
  3097. Dloop:    cmp.w    #1,d0
  3098.     beq    Dloop1
  3099.     sub.w    #1,d0
  3100.     bra    Dloop
  3101. Dloop1:    move.w    #1,$dff0d4
  3102.     rts
  3103.  
  3104. ;**** VARIABLER TIL EFFEKT PROGRAM **
  3105. slut:        dc.b    0
  3106. effektnr:    dc.b    0
  3107. align    4
  3108. sound0:        dc.l    0
  3109. sound1:        dc.l    0
  3110. sound2:        dc.l    0
  3111. sound3:        dc.l    0
  3112. sound4:        dc.l    0
  3113. sound5:        dc.l    0
  3114. sound6:        dc.l    0
  3115. sound7:        dc.l    0
  3116. sound8:        dc.l    0
  3117. sound9:        dc.l    0
  3118. sound10:    dc.l    0
  3119. sound11:    dc.l    0
  3120. sound12:    dc.l    0
  3121. sound13:    dc.l    0
  3122. length0:    dc.w    2782
  3123.         dc.w    0
  3124. length1:    dc.w    12500
  3125.         dc.w    0
  3126. length2:    dc.w    2335
  3127.         dc.w    0
  3128. length3:    dc.w    5197
  3129.         dc.w    0
  3130. length4:    dc.w    10890
  3131.         dc.w    0
  3132. length5:    dc.w    13871
  3133.         dc.w    0
  3134. length6:    dc.w    5022
  3135.         dc.w    0
  3136. length7:    dc.w    8601
  3137.         dc.w    0
  3138. length8:    dc.w    10427
  3139.         dc.w    0
  3140. length9:    dc.w    527
  3141.         dc.w    0
  3142. length10:    dc.w    8107
  3143.         dc.w    0
  3144. length11:    dc.w    2905
  3145.         dc.w    0
  3146. length12:    dc.w    10587
  3147.         dc.w    0
  3148. length13:    dc.w    12925
  3149.         dc.w    0
  3150. freq0:        dc.w    350
  3151.         dc.w    0
  3152. freq1:        dc.w    490
  3153.         dc.w    0
  3154. freq2:        dc.w    400
  3155.         dc.w    0
  3156. freq3:        dc.w    500
  3157.         dc.w    0
  3158. freq4:        dc.w    500
  3159.         dc.w    0
  3160. freq5:        dc.w    300
  3161.         dc.w    0
  3162. freq6:        dc.w    300
  3163.         dc.w    0
  3164. freq7:        dc.w    290
  3165.         dc.w    0
  3166. freq8:        dc.w    300
  3167.         dc.w    0
  3168. freq9:        dc.w    350
  3169.         dc.w    0
  3170. freq10:        dc.w    0
  3171.         dc.w    0
  3172. freq11:        dc.w    520
  3173.         dc.w    0
  3174. freq12:        dc.w    500
  3175.         dc.w    0
  3176. freq13:        dc.w    450
  3177.         dc.w    0
  3178. vol0:        dc.w    20
  3179.         dc.w    0
  3180. vol1:        dc.w    44
  3181.         dc.w    0
  3182. vol2:        dc.w    40
  3183.         dc.w    0
  3184. vol3:        dc.w    54
  3185.         dc.w    0
  3186. vol4:        dc.w    64
  3187.         dc.w    0
  3188. vol5:        dc.w    64
  3189.         dc.w    0
  3190. vol6:        dc.w    64
  3191.         dc.w    0
  3192. vol7:        dc.w    64
  3193.         dc.w    0
  3194. vol8:        dc.w    64
  3195.         dc.w    0
  3196. vol9:        dc.w    20
  3197.         dc.w    0
  3198. vol10:        dc.w    0
  3199.         dc.w    0
  3200. vol11:        dc.w    25
  3201.         dc.w    0
  3202. vol12:        dc.w    50
  3203.         dc.w    0
  3204. vol13:        dc.w    64
  3205.         dc.w    0
  3206. ;************************
  3207. ;*   PRINT  BOGSTAVER   *
  3208. ;************************
  3209. skriv:
  3210.     move.b    #1,tegn_farve
  3211.     move.w    #0,tegn_X
  3212.     move.w    #10,tegn_Y
  3213.     move.l    #text,a3
  3214. skriv1:    move.b    (a3),tegn_nr
  3215.     beq    skriv4
  3216.     cmp.b    #31,tegn_nr    ;Slut ?
  3217.     beq    skriv2        
  3218.     cmp.b    #30,tegn_nr    ;Ny linie ?
  3219.     beq    skriv3
  3220.     sub.b    #1,tegn_nr
  3221.     jsr    print_bogstav
  3222.     add.l    #1,a3
  3223.     add.w    #10,tegn_X
  3224.  
  3225.     move.b    #9,effektnr
  3226.     move.b    #1,slut
  3227.     move.w    #250,freq9
  3228.     jsr    kanal0
  3229.  
  3230.     move.w    #150,d0
  3231.     jsr    pause
  3232.     bra    skriv1
  3233.  
  3234. skriv4:    add.w    #10,tegn_X    ;Space
  3235.     add.l    #1,a3
  3236.     move.w    #250,d0
  3237.     jsr    pause
  3238.     bra    skriv1
  3239.  
  3240. skriv3:    move.w    #0,tegn_X    ;Ny linie
  3241.     add.w    #10,tegn_Y
  3242.     add.l    #1,a3
  3243.  
  3244.     move.b    #9,effektnr
  3245.     move.w    #150,freq9
  3246.     jsr    kanal0
  3247.     
  3248.     move.w    #500,d0
  3249.     jsr    pause
  3250.     bra    skriv1    
  3251.  
  3252. skriv2:    rts    ;Slut
  3253.  
  3254. text:
  3255. dc.b    18,5,16,15,18,20,0,6,18,15,13,0
  3256. dc.b    13,9,12,9,20,1,18,25,0,8,28,17,28,30
  3257. dc.b    30
  3258.  
  3259. dc.b    15,14,12,25,0,20,8,18,5,5,0,8,15,21,18,19
  3260. dc.b    0,1,7,15,0,20,5,18,18,15,18,9,19,20,19,30
  3261.  
  3262. dc.b    1,20,20,1,3,11,5,4,0,1,14,0,15,9,12,18,9,7,0
  3263. dc.b    9,14,0,20,8,5,30
  3264.  
  3265. dc.b    16,5,18,19,9,1,14,0,7,21,12,6,28,30
  3266.  
  3267. dc.b    19,5,22,5,18,1,12,0,8,15,19,20,1,7,5,19,0
  3268. dc.b    23,5,18,5,0,20,1,11,5,14,0,1,14,4,30
  3269.  
  3270. dc.b    1,0,14,21,3,12,5,1,18,0,2,15,13,2,0
  3271. dc.b    23,1,19,0,16,12,1,3,5,4,0,15,14,30
  3272.  
  3273. dc.b    20,8,5,0,18,9,7,28,30
  3274.  
  3275. dc.b    18,5,17,21,5,19,20,0,16,5,18,13,9,19,19,9,15,14,0
  3276. dc.b    20,15,0,12,1,21,14,3,8,0,30
  3277.  
  3278. dc.b    1,20,20,1,3,11,30
  3279. dc.b    30,30,30,30,30,30
  3280.  
  3281. dc.b    16,5,18,13,9,19,19,9,15,14,0,7,18,1,14,20,5,4,31
  3282. align 4
  3283. ;************************
  3284. print_bogstav:
  3285.     move.w    tegn_X,d0    ;Hent x,y
  3286.     move.w    tegn_Y,d1    ;& beregn
  3287.     move.w    d0,d2        ;adr. + shift.
  3288.     and.w    #15,d2        ;d2 = Shift
  3289.     lsl.w    #6,d2        ;(Til brug i Con.reg.)
  3290.     lsl.w    #6,d2
  3291.     lsr.w    #3,d0        ;###lsr.w    #4,d2
  3292.     mulu    #40,d1
  3293.     add.w    d0,d1
  3294.     move.l    d1,d5        ;d5 = XYadr.
  3295.  
  3296.     move.l    tegn_data,a0    ;Beregn 
  3297.     clr.l    d0        ;tegn adr.
  3298.     move.b    tegn_nr,d0
  3299.     mulu    #14,d0        ;##32
  3300.     add.l    d0,a0        ;Tegn adr.(Sourse)
  3301.     
  3302.     move.l    #bitplanes,a1
  3303.     move.b    tegn_farve,d0
  3304.     move.w    #0,d1        ;(Til loop)###5,
  3305.     
  3306. tegn2:    move.w    d2,d3        ;(Shift)
  3307.     btst    d1,d0        ;Check farve
  3308.     beq    tegn1        ;Bplan = 0 ?
  3309.     add.w    #$bfa,d3    ;hvis nej,...
  3310.     bra    tegn3
  3311.  
  3312. tegn1:    add.w    #$f0a,d3    ;Hvis ja,...
  3313. tegn3:    jsr    tegn_blit
  3314.     add.w    #1,d1        ;###sub.w
  3315.     cmp.w    #5,d1
  3316.     bne    tegn2        ;Loop
  3317.     rts    
  3318.  
  3319. tegn_blit:
  3320. tegn4:    btst    #14,$dff002    ;Blitter klar ?
  3321.     bne    tegn4       ;Nej, loop.
  3322.     
  3323.     move.l    (a1)+,d4    ;Hent BPlan
  3324.     add.l    d5,d4        ;+ XYadr.
  3325.     move.l    a0,$dff050    ;Sourse A
  3326.     move.l    d4,$dff048    ;  -    C
  3327.     move.l    d4,$dff054    ;Destination
  3328.     move.w    #-2,$dff064    ;Modulo A
  3329.     move.w    #36,$dff060    ;   -   C
  3330.     move.w    #36,$dff066    ;Modulo D
  3331.     move.w    #$ffff,$dff044    ;First Mask
  3332.     move.w    #0,$dff046    ;Last  Mask
  3333.     move.w    d3,$dff040    ;Control 0
  3334.     move.w    #0,$dff042    ;   -    1
  3335.     move.w    #450,$dff058    ;Size
  3336.     rts
  3337. ;DATA
  3338.     
  3339. tegn_data:    dc.l    0
  3340. tegn_X:        dc.w    100
  3341. tegn_Y:        dc.w    100
  3342. tegn_nr:    dc.b    9
  3343. tegn_farve:    dc.b    9
  3344. align 4
  3345. ;******* Clear Screen ********
  3346. clear_screen:
  3347.     clr.l    d0
  3348.     move.l    #bitplanes,a0
  3349.     move.w    #5,d1
  3350. clear1:    move.l    (a0)+,a1
  3351.     move.w    #2000,d2
  3352. clear2:    move.l    d0,(a1)+
  3353.     sub.w    #1,d2
  3354.     bne    clear2
  3355.     sub.w    #1,d1
  3356.     bne    clear1
  3357.     rts
  3358. ;*********************************
  3359. ;*     SEA MUSIC                 *
  3360. ;*********************************
  3361. opstart:                                 
  3362.     move.b    #0,$bfe400
  3363.     move.b    #254,$bfe500
  3364.     move.b    #9,$bfee01
  3365.     move.b     #255,$bfe500
  3366.     move.l    #startA,nypointer1A
  3367.     move.l    #startA,datapointerA
  3368. stop:    rts
  3369. ;**** START MUSIC ******************
  3370. music:  cmp.b    #1,stopcheck
  3371.     beq    music1
  3372.     rts
  3373. music1:    cmp.b     #255,$bfe501
  3374.     beq     check
  3375.     rts
  3376. check:    move.b     #254,$bfe500
  3377.     move.b     #25,$bfee01
  3378.     move.b     #255,$bfe500    
  3379.     cmp.b      #1,pauseA
  3380.     beq        dataA
  3381.     sub.b      #1,pauseA
  3382.     rts
  3383. ;**** Audio data for kanal 0 *********
  3384. dataA:    move.w    #1,$dff096    ;stop sound
  3385.     move.l     datapointerA,a0
  3386.     move.b     (a0),pauseA    ;pause taeller
  3387.     cmp.b    #251,pauseA
  3388.     beq    stop    
  3389.     add.l      #1,a0        ;+ datapointerA
  3390.     clr.l     d0
  3391.     move.b     (a0),d0  ;soundcode
  3392.     mulu       #4,d0
  3393.     move.l  d0,a2
  3394.     move.l     #sound0,a1
  3395.     move.l     (a2,a1),$dff0a0 ;start adr.
  3396.     move.l     #length0,a1
  3397.     move.w     (a2,a1),$dff0a4 ;laengde
  3398.     add.l      #1,a0        ;+ datapointerA
  3399.     move.w     (a0),$dff0a6           ;freq
  3400.     add.l      #2,a0        ;+ datapointerA
  3401.     move.b     (a0),$dff0a8           ;vol.
  3402.     add.l      #2,a0        ;+ datapointerA
  3403.     move.l  a0,d0
  3404.     move.l     d0,datapointerA
  3405.     move.w    #300,d0
  3406. qebd:    dbeq    d0,qebd        ;pause
  3407.     move.w    #33281,$dff096    ;start sound
  3408.     move.w    #1,$dff0a4    ;laengde
  3409.     rts
  3410.  
  3411. ;**** VARIABLER TIL SEA MUSIC ******
  3412. nypointer1A:    dc.l    0
  3413. datapointerA:    dc.l     0
  3414. soundcodeA:    dc.b    0
  3415. pauseA:        dc.b     1
  3416. stopcheck:        dc.b    0
  3417. align 4
  3418. ;**** DATA TIL SEA MUSIC ***********
  3419. startA:    
  3420.     dc.b    9,10,1,173,20,0, 6,10,1,173,20,0
  3421.     dc.b    3,10,1,173,15,0, 6,10,1,105,20,0
  3422.     dc.b    3,10,1,173,20,0, 3,10,1,173,15,0
  3423.     dc.b    6,10,1,173,20,0, 3,10,1,105,20,0
  3424.     dc.b    9,10,1,105,15,0
  3425.  
  3426.     dc.b    9,10,1,173,20,0, 6,10,1,173,20,0
  3427.     dc.b    3,10,1,173,15,0, 6,10,1,105,20,0
  3428.  
  3429.     dc.b    1,10,1,173,20,0, 1,10,1,173,20,0
  3430.     dc.b    7,10,1,173,20,0, 6,10,1,173,20,0
  3431.     dc.b    3,10,1,173,15,0, 6,10,1,105,20,0
  3432.  
  3433.     dc.b    9,10,1,173,20,0, 6,10,1,173,20,0
  3434.     dc.b    3,10,1,173,20,0, 6,10,1,105,20,0
  3435.  
  3436.     dc.b    3,10,1,173,20,0, 3,10,1,173,20,0
  3437.     dc.b    3,10,1,173,20,0, 6,10,1,173,20,0
  3438.     dc.b    3,10,1,105,15,0, 6,10,1,105,20,0
  3439.  
  3440.     dc.b    1,10,1,105,20,0, 1,10,1,105,20,0
  3441.     dc.b    7,10,1,105,20,0, 1,10,1,105,20,0
  3442.     dc.b    1,10,1,105,20,0, 13,10,1,105,20,0
  3443.     dc.b    9,10,1,173,20,0, 6,10,1,173,20,0
  3444.     dc.b    3,10,1,173,15,0, 6,10,1,105,20,0
  3445.     dc.b    3,10,1,173,20,0, 6,10,1,173,20,0
  3446.     dc.b    3,10,1,173,15,0, 12,10,1,105,20,0
  3447.     dc.b    1,10,1,773,20,0, 1,10,1,173,20,0
  3448.     dc.b    7,10,1,173,20,0, 1,10,1,173,20,0
  3449.     dc.b    1,10,1,173,20,0, 13,10,1,173,20,0
  3450.     dc.b    9,10,1,173,20,0, 6,10,1,173,20,0
  3451.     dc.b    3,10,1,173,15,0, 6,10,1,173,20,0
  3452.     dc.b    9,10,1,173,20,0, 6,10,1,173,20,0
  3453.     dc.b    3,10,1,173,15,0, 6,10,1,173,20,0
  3454.     dc.b    251
  3455.